<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
DSNtemp=\"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSNtemp=dsntemp & \"DBQ=\" & server.mappath(\"mailing.mdb\")
Connect.Open DSNtemp
Set RS = Connect.Execute(\"SELECT * FROM mailingliste WHERE Email=\'\" & CStr(Email) & \"\'\")
If RS.BOF or RS.EOF Then
\'[KODE TIL AT OPRETTE BRUGER]
\'Opdater liste med konkurrencer
if not Navn = \"\" OR Email = \"\" then
Dim objRecordset
Set objRecordset = Server.CreateObject(\"ADODB.Recordset\")
objRecordset.Open \"mailingliste\", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable
objRecordset.AddNew
objRecordset.Fields(\"Navn\") = CStr(Navn)
objRecordset.Fields(\"Email\") = CStr(Email)
objRecordset.Update
objRecordset.Close
Set objRecordset = Nothing
Response.Redirect \"
http://www.konkurrencenet.dk\" else
Response.Write(\"Du har ikke udfyldt alle felter\")
end if
Set Connect = Nothing
Set RS = Nothing
Else
Response.Write \"E-mail adressen findes allerede\"
End If
else
%>