spm. ang loginsystem

Hej,

jeg sidder og nørkler lidt med et login-system i ASP. Jeg har fundet et par komponenter som jeg prøver at passe til. Nu er min viden omkring ASP lidt begrænset, så jeg ville blive glad hvis der var en ekspert, der kunne give mig et letforståeligt svar på, hvad der foregår herunder, især med funktionen \"SQLreplace\" som jeg ikke rigtigt kan forstå formålet med?? På forhånd tak!


<%@ Language=VBScript %>
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<%
Session(\"brugernavn\") = request.form(\"brugernavn\")
Session(\"password\") = request.form(\"password\")
%>
<%
set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/database.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"

Response.Buffer = True

Function checklogin(brugernavn,password)
    set tjek = Conn.Execute(\"SELECT * FROM bruger WHERE brugernavn = \'\"& brugernavn &\"\' AND password = \'\"& password &\"\'\")
    If tjek.EOF THEN
        Response.Write \"<center><FONT FACE=Verdana SIZE=4 COLOR=#FF0000><B>Bruger ikke fundet</B></FONT></center>\"
    Else
        Session(\"login\") = tjek(\"id\")
        Response.Redirect(\"loggetind.asp\")
    End If
End Function

Function sqlreplace(streng)
    sqlreplace = Replace(streng,\"\'\",\"\'\'\")
End Function