Her er et eksempel med en database (protect97.mdb) med 1 tabel (tblUserPass) der har 2 felter (username og password)..
Databasen ligger i samme mappe som indsaet.asp.
indsaet.asp:
<%
Option Explicit ' Bør altid bruges, og definer altid dine variabler.
dim Conn, rs, strSQL, DSN
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("protect97.mdb")
Conn.Open DSN
dim strUsername, strPassword
strUsername = replace(request.form("username"), "'", "")
strPassword = replace(request.form("password"), "'", "")
strSQL = "Select * From tblUserPass Where username = '" & strUsername & "'"
Set rs = Conn.Execute(strSQL)
if (not rs.bof) and (not rs.eof) then
' Brugeren eksisterer allerede..
response.write "Brugeren '" & strUsername & "' eksisterer allerede."
else
' Der er ikke fundet en eksisterende bruger..
strSQL = "Insert into tblUserPass (username, password) values('" & strUsername & "', '" & strPassword & "')"
Conn.execute(strSQL)
response.write "<br>Brugeren '" & strUsername & "' er nu tilføjet."
end if
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<title>No title</title>
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<p> </p>
</body>
</html>
