<% Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = _
"Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=d:\users\foley\www\database\database.mdb;" & _
"DefaultDir=d:\users\foley\www\database\;" & _
"FIL=MS Access;"
DB.Open
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Firma = Request("Firma")
Navn = Request("Navn")
Adresse = Request("Adresse")
post = Request("post")
by = Request ("by")
telefon = Request ("telefon")
telefax = Request ("telefax")
email = Request ("email")
SQL = "SELECT * FROM Tabel1;"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DB, 3, 3
RS.AddNew
RS("Firma") = Firma
RS("Navn") = Navn
RS("Adresse") = Adresse
RS("post") = post
RS("by") = by
RS("telefon") = telefon
RS("telefax") = telefax
RS("email") = email
RS.Update
if Err = 0 then
Msg = "Du er oprettet som medlem af KUBUS. Din konto bliver �bnet, lige s� snart din betaling er registreret."
else
Msg = "Der er opst�et en fejl, pr�v venligst igen..."
end if
Set RS = Nothing
end if %>
KUBUS Medlemsregistrering !
Indtast dine
informationer her, hvis du �nsker at v�re medlem af KUBUS.
<%=Msg%>
<% SQL = "SELECT * FROM Tabel1 ORDER BY Navn DESC;"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DB, 3, 3
%>