Laver tom record i db
Hej !Dette er min fil der gemmer det fra indtastningsformen i databasen. Det er lavet sådan at det eneste felt der er 'required' er navn'e-feltet. Når jeg sidder og tester så kan jeg altså ikke få oprettet en record i databasen uden at indtaste navn....men det ligger på en privat side som noget adressebog hvor folk kan skrive sig ind og jeg har nu oplevet 3 gange at der er tomme records i databasen. Nogle der kan gemmenskue hvordan det kan lade sig gøre ? Jeg har prøve alt synes jeg og kan ikke lave en tom record ??
<!-- #include file="EmailValideringServer.asp" -->
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
'Fjerner mellemrum og specille tegn fra felterne.
strNavn = Trim(Replace(replace(Request.Form("Navn"),"'",""),"<","<"))
'strEmail = Trim(Replace(replace(Request.Form("Email"),"'",""),"<","<"))
strarbejdspladswww = Trim(Replace(replace(Request.Form("arbejdspladswww"),"'",""),"<","<"))
strprivatwww = Trim(Replace(replace(Request.Form("privatwww"),"'",""),"<","<"))
'Validering af at der er indtastet noget i felterne og specielle ting i de forskellige felter
if len(strNavn) < 1 or strNavn ="" then
Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Navn skal indtastes!") & "&navn=" & Server.URLEncode(strNavn)
elseif strPrivatwww <> "" then
if left(strPrivatwww,7) <> "http://" then
strPrivatwww = "http://" & strPrivatwww
'Vi sætter selv http:// foran i stedet for at bede brugeren om at gøre det som nedestående gør.
'Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Indtast http:// foran hjemmeside.")
end if
end if
if strArbejdspladswww <> "" then
if left(strArbejdspladswww,7) <> "http://" then
strArbejdspladswww = "http://" & strArbejdspladswww
'Vi sætter selv http:// foran i stedet for at bede brugeren om at gøre det som nedestående gør.
'Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Indtast http:// foran hjemmeside.")
end if
end if
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/krcdb.mdb")
'Create an ADO recordset object
Set rsAddComments = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT testtabel.navn, testtabel.emailarbejde, testtabel.emailprivat, testtabel.telefonarbejde, testtabel.telefonmobil, testtabel.telefonprivat, testtabel.arbejdsplads, testtabel.arbejdspladsadresse, testtabel.arbejdspladswww, testtabel.privatadresse, testtabel.privatwww FROM testtabel;"
'Set the cursor type we are using so we can navigate through the recordset
rsAddComments.CursorType = 2
'Set the lock type so that the record is locked by ADO when it is updated
rsAddComments.LockType = 3
'Open the recordset with the SQL query
rsAddComments.Open strSQL, adoCon
'Tell the recordset we are adding a new record to it
rsAddComments.AddNew
'Add a new record to the recordset
rsAddComments.Fields("navn") = Request.Form("navn")
rsAddComments.Fields("emailarbejde") = Request.Form("emailarbejde")
rsAddComments.Fields("emailprivat") = Request.Form("emailprivat")
rsAddComments.Fields("telefonarbejde") = Request.Form("telefonarbejde")
rsAddComments.Fields("telefonmobil") = Request.Form("telefonmobil")
rsAddComments.Fields("telefonprivat") = Request.Form("telefonprivat")
rsAddComments.Fields("arbejdsplads") = Request.Form("arbejdsplads")
rsAddComments.Fields("arbejdspladsadresse") = Request.Form("arbejdspladsadresse")
rsAddComments.Fields("arbejdspladswww") = strArbejdspladswww
rsAddComments.Fields("privatadresse") = Request.Form("privatadresse")
rsAddComments.Fields("privatwww") = strPrivatwww
'Write the updated recordset to the database
rsAddComments.Update
'Reset server objects
rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
'Redirect to the guestbook.asp page
Response.Redirect "admin_view.asp"
%>
