hjælp til tagwall!
Hej eksperter,er ved at programmerer en tagwall, men den funker ikke rigtig, så hvad skal der til før den virker?
Umiddelbart melder den fejl på linje 38:
website = request.form("website")
(linje 38)
err = 0
--------------------------------
<%
response.write("<table width='630' align='center' cellpadding='3' cellspacing='0' class='textnavigation'>")
response.write("<tr>")
response.write("<td>Communications</td>")
response.write("</tr>")
response.write("</table>")
response.write("<br>")
'Åbner databasen
set conn = opendb()
strMode = Request.QueryString("mode")
select CASE strMode
CASE "addmessage"
author = request.cookies("nick")
email = request.cookies("email")
if request.form("mode") = "insert" then
topic = replace(request.form("topic"),"'","''")
body = replace(request.form("body"),"'","''")
bodyStr = replace(body,vbcrlf,"<br>")
author = request.form("nick")
email = request.form("email")
website = request.form("website")
err = 0
if author = "" then
err = 1
errormsg = "<br>Du skal skrive dit nick"
end if
if instr(email,"@") = 0 or instr(email,".") = 0 or email = "" then
err = 1
errormsg = errormsg + "<br>Email-adressen er ikke gyldig"
end if
if topic = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et emne"
end if
if err = 0 then
SQL = "insert into communications(author, email, website, topic, body, ip) values('"
SQL = SQL & author & "','"
SQL = SQL & email & "','"
SQL = SQL & website & "','"
SQL = SQL & topic & "','"
SQL = SQL & bodyStr & "','"
SQL = SQL & Request.ServerVariables("REMOTE_ADDR") & "')"
set RSinsert = conn.Execute(SQL)
if request.form("remember") = "true" then
Response.cookies("nick") = author
Response.Cookies("nick").Expires = Date+365
Response.cookies("email") = email
Response.Cookies("email").Expires = Date+365
end if
response.redirect("default.asp")
end if
end if
response.write("<form name='form1' method='post' action='default.asp?mode=addmessage'><input type='hidden' name='mode' value='insert'>")
response.write("<table width='630' align='center' cellpadding='3' cellspacing='0' class='textnormal'>")
response.write("<tr>")
response.write("<td width='153'>Nick / Handle: </td>")
response.write("<td width='455'><input name='author' type='text' class='textfields' id='author' value=' " & author & " ' size='86'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>E-mail:</td>")
response.write("<td width='455'><input name='email' type='text' class='textfields' id='email' value=' " & email & " ' size='86'></td>")
response.write("</tr>")
response.write("<tr>")
response.write(" <td>Website:</td>")
response.write("<td height='24' width='455' valign='top'><input name='website' type='text' class='textfields' id='website' value=' " & website & " ' size='86'></td>")
response.write("</tr>")
response.write("<tr>")
response.write(" <td height='24'>Overskift:</td>")
response.write("<td valign='bottom'><input name='website' type='text' class='textfields' id='website' value=' " & website & " ' size='86'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td valign='top'>Besked:</td>")
response.write("<td width='455' valign='top' class='textsmall'>")
response.write("<textarea name='body' cols='86' class='textareas' onselect='storeCaret(this);' onchange='storeCaret(this);countLetters(this);' onclick='storeCaret(this);' onkeydown='storeCaret(this);countLetters(this);' onkeyup='storeCaret(this);countLetters(this);'></textarea>")
response.write("Din besked må maksimalt være på 700 tegn - du har <span id='lettercount'>700</span> tegn tilbage.")
response.write("<br>")
response.write("<td width='2'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td height='36' valign='top'>Husk mine informationer:<br>")
response.write("<font color ='cccccc'>(Ved brug af Cookies)</font></td>")
response.write("<td height='40' valign='top'><input name='remember' type='checkbox' class='checkbox' id='remember' value='checkbox'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td></td>")
response.write("<td><input name='Submit' type='submit' class='submitfield' value='Gem beskeden'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td height='40' valign='bottom'> »<a href='default.asp'> Tilbage til Communications</a></td>")
response.write("<td></td>")
response.write("</tr>")
response.write("</table>")
response.write("</form>")
%>
