Det tænkte jeg slet ikke på... - Sorry...
Så har jeg lige et spørgsmål mere:
Hvis en bruger vil skrive i min gæstebog, hvorfor kan han så ikke
undlade at skrive i feltet: Hjemmeside?
Har prøvet at rende forummet igennem, men kan ikke finde et svar der
passer på mit spørgsmål.
Fandt en kode der hed noget med:
If Not IsNull(rs("link")) then
If rs("Link") <> "" Then
Response.Write ...
End If
End If
Hvor skal jeg sætte denne kode?
- På siden hvortil dataene fra formen bliver sendt?
- På siden hvor formen er?
Og i hvilken rækkefølge skal det så stå i min kode?
Koden der henter data fra min database ser sådan ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("guest_data.mdb")
Conn.Open DSN
strSQL = "Select * From guest Order by ID Desc"
Set rs = Conn.Execute(strSQL)
Do
Response.Write "<table width=100% style='border: 1px solid
#c0c0c0'><tr><td valign=top width=100px>Navn:</td><td>" & rs("Navn") &
"</td></tr>"
Response.Write "<tr><td>Email:</td><td valign=top><a href=mailto:" &
rs("Email") & ">" & rs("Email") & "</a></td></tr>"
Response.Write "</tr><td valign=top>Hjemmeside:</td><td><a
href=http://" & rs("Hjemmeside") & ">" & rs("Hjemmeside") &
"</a></td></tr>"
Response.Write "<tr><td valign=top>Hilsen:</td><td>" & rs("Hilsen") &
"</td></tr></table>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Koden der indsætter data i min database ser sådan ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("guest_data.mdb")
Conn.Open DSN
strSQL = "Insert into guest ("
strSQL = strSQL & "Navn, "
strSQL = strSQL & "Email, "
strSQL = strSQL & "Hjemmeside, "
strSQL = strSQL & "Hilsen) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & Request.Form("Navn") & "', "
strSQL = strSQL & "'" & Request.Form("Email") & "', "
strSQL = strSQL & "'" & Request.Form("Hjemmeside") & "', "
strSQL = strSQL & "'" & Request.Form("Hilsen") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
På forhånd tak for hjælpen...
--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! =>
http://www.html.dk/job