<%
Option Explicit
Dim conn
If not isempty(Request.Form("Add")) Then
   set conn = server.createobject ("adodb.connection")
   conn.open "ASPBook", "sa", "twoje_haslo"
   conn.execute "insert into C5Login (UserName, Password, FavCat) " _
     & "values (" _
     & "'" & Request.Form("UserName") & "', " _
     & "'" & Request.Form("Password") & "', " _
     & "'" & Request.Form("FavCat") & "')"
   response.cookies("Login")("UserName") = request.form("username")
   response.cookies("Login")("FavCat") = request.form("FavCat")
   response.cookies("Login").Expires = "2/2/2002"
   response.redirect "./welcomeback.asp"
End If
%> 
