tilføj felt i gæstebog
Jeg har denne gæstebog af Dennis Knappe men hvor det ikke er muligt at indsætte fx et link til brugerens www. Jeg har forsøgt på bedste vis, men der kommer intet frem.Hvor går jeg galt?
<%
' --------------------------------------------------------------------------------
' Dette eksempel er skrevet af Dennis Knappe ( info@activeserverpages.dk )
' Eksemplet kan downloades fra http://www.activeserverpages.dk
' Scriptet kan frit anvendes til ikke kommercial brug, ønsker du at bruge scriptet
' i et kommercial sammenhæng kontakt da venligst Dennis Knappe
' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
If Request.Form("Gem") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strwww = Trim(Request.Form("www"))
strKommentar = Trim(Request.Form("Kommentar"))
If Len(strNavn) = 0 Then
strError = "<li>Du skal skrive dit navn!</li>"
ElseIf validateEmail(strEmail) = False Then
strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
ElseIf Len(strKommentar) = 0 Then
strError = "<li>Du skal skrive en kommentar!</li>"
End If
If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Server.HTMLEncode(strNavn)
rs("Email") = Server.HTMLEncode(strEmail)
rs("www") = Server.HTMLEncode(strwww)
rs("Kommentar") = Server.HTMLEncode(strKommentar)
rs("Dato") = Now()
rs.Update
End If
rs.Close
Set rs = Nothing
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.fthmail.dk"
JMail.Sender = "gbog@model-fotos.dk"
JMail.Subject = "Der er skrevet i gæstebogen"
JMail.AddRecipient "michael@model-fotos.dk"
JMail.AddRecipient "janne@model-fotos.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.Body = "Der er skrevet i vores gæstebog. Tryk på linket for at læse beskeden." & vbCrLf &_
"http://www.model-fotos.dk/gb.asp"
' ********** Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
Else
strError = "<p><ul><font color=#FF0000>" & strError & "</font></ul></p>"
strMode = "add"
End If
End If
%>
<div align="center"><table border="0" width="400" cellspacing="0" cellpadding="3" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 2px solid rgb(0,0,0)">
<tr>
<td width="100%">
<%
Select Case strMode
Case "add"
%>
<form method="POST" action="gb.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td valign="middle" align="left" colspan="2"><font face="verdana" size="2"><br>Indtast venligst oplysningerne i følgende felter:<strong>
<%=strError%></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">Navn</font></strong></td>
<td valign="middle" align="left"><input type="text" name="Navn" size="40" value="<%=strNavn%>"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">E-mail</font></strong></td>
<td valign="middle" align="left"><input type="text" name="Email" size="40" value="<%=strEmail%>"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">www</font></strong></td>
<td valign="middle" align="left"><input type="text" name="www" size="40" value="<%=strwww%>"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><strong><font face="verdana" size="2">Komentar</font></strong></td>
<td valign="middle"><textarea rows="5" name="Kommentar" cols="40"><%=strKommentar%></textarea></td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2"><input type="submit" value="Gem" name="Gem" />
<input type="button" value="Annuller" name="Annuller" onclick="java script:location.href='gb.asp'" /></td>
</tr>
</table>
</form>
<%
Case Else
strAddLine = "<p><img src=gb/add.gif width=16 height=16> <a href=gb.asp?mode=add><strong><font face=verdana size=2>Skriv et indlæg i vores gæstebog!</font></strong></a></p>"
Response.Write strAddLine
strSQL = "SELECT * FROM Guestbook ORDER BY Dato DESC;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table width=100% border=0 cellpadding=1 cellspacing=1>"
Do While Not rs.EOF
dtmDato = rs("Dato")
dtmDato = FormatDateTime(dtmDato,vbLongDate) & " kl. " & FormatDateTime(dtmDato,vbLongTime)
Response.Write "<tr bgcolor=#C0C0C0><td width=""100%""><font face=verdana size=2>" & dtmDato & "</td></tr>"
If Len(rs("Email")) > 0 Then
Response.Write "<tr><td><font face=verdana size=2><strong><a href=mailto:" & rs("Email") & ">" & rs("Navn") & "</a> skriver:</strong></td></tr>"
Else
Response.Write "<tr><td><font face=verdana size=2><strong>" & rs("Navn") & rs("www") & "skriver:</strong></td></tr>"
End If
Response.Write "<tr><td><font face=verdana size=2>" & rs("Kommentar") & "<br> </td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p><font face=verdana size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>"
End If
myConn.Close
Set myConn = Nothing
End Select
%>
</tr>
<tr align="center">
<td width="100%" bgcolor="#000000"> </td>
</tr>
</table>
</center></div>
<script language="VBScript" runat="Server">
Function validateEmail(strEmail)
validateEmail = True
If Len(strEmail) < 6 Then
validateEmail = False
End If
If InStr(1, strEmail, "@", 1) < 2 Then
validateEmail = False
End If
If InStr(1, strEmail, ".", 1) = 0 Then
validateEmail = False
End If
pos = InStr(1, strEmail, "@", 1)
If pos < 2 Then
validateEmail = False
Else
pos = InStr(pos+1, strEmail, "@")
If pos > 0 Then
validateEmail = False
End If
End If
End Function
</script>
Gæstebogen kan ses på www.model-fotos.dk
