ASP tagwall???
Hvad er der Galt med min Tagwall???den siger det som står her
www.friserverplads.dk/zob/tagwall/add.asp
og koden er:
<%
Dim tempConn, navn, Email, emne, url, besked, funimg, icq, rs
Response.Buffer = True
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
& Server.MapPath("tagwall.mdb") & ";UID=admin;PWD=;"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3
navn = Trim(Request.Form("navn"))
Email = Trim(Request.Form("email"))
emne = Trim(Request.Form("emne"))
url = Trim(Request.Form("url"))
besked = Trim(Request.Form("besked"))
funimg = Trim(Request.Form("funimg"))
icq = Trim(Request.Form("icq"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TagWall WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("navn") = navn
rs("email") = email
rs("emne") = emne
rs("url") = url
rs("besked") = besked
rs("funimg") = funimg
rs("icq") = icq
rs("Ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("index.asp")
End If
%>
<html>
<head>
<title>ZoB- Tagwall- Opret Tag</title>
<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
err = '';
if (theForm.navn.value == '') {
theForm.navn.style.color = '#FFFFFF';
theForm.navn.style.backgroundColor = '#FF0000';
err += "Navn mangler\r";
}
if (theForm.emne.value == '') {
theForm.emne.style.color = '#FFFFFF';
theForm.emne.style.backgroundColor = '#FF0000';
err += "Beskeden mangler\r";
}
if (theForm.besked.value == '') {
theForm.besked.style.color = '#FFFFFF';
theForm.besked.style.backgroundColor = '#FF0000';
err += "Beskeden mangler\r";
}
if (theForm.email.value == '') {
theForm.email.style.color = '#FFFFFF';
theForm.email.style.backgroundColor = '#FF0000';
err += "E-mail mangler\r";
} else {
ema = theForm.email.value;
pos1 = ema.indexOf('@',0);
pos2 = ema.indexOf('.',pos1);
str = ema.substring(ema.length-1,ema.length+1);
if (pos1 < 0 || pos2 < 0 || str == '.') {
theForm.email.style.color = '#FFFFFF';
theForm.email.style.backgroundColor = '#FF0000';
err += "E-mail ikke gyldig\r";
}
}
if (err != ''){
alert('Følgende felter mangler at blive udfyldt:\r' + err);
return (false);
} else {
return (true);
}
}
</script>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="../style.css">
</head>
<body Link="#000000">
<table border="0" cellpadding="0" cellspacing="0" width="550" align=center>
<tr>
<td height="15" Background="../build/3-1.gif" align="center"
style="font-size:12px; font-weight: bold">
.... Tilføj Besked ....</td>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="0" align=center>
<tr>
<td align="center"><a href="index.asp">Tilbage til beskederne</a></td>
</tr>
</table>
<form method="POST" action="add.asp" onsubmit="return Check_Form(this)" name="FrontPage_Form1">
</form>
<dl>
<dd align="center">
<table border="0" cellpadding="0" cellspacing="0" align=center>
<tr>
<td colspan="2"></td>
</tr>
<tr align="center">
<td align=left><b>Navn:</b></td>
<td align=left><INPUT class=field size="20"
onblur="if(this.value=='')this.value='Navn';this.style.filter = 'Alpha(Opacity=60)'"
onfocus="if(this.value=='Navn')this.value='';this.style.filter = 'Alpha(Opacity=100)'"
value=Navn name=navn></td>
</tr>
<tr align="center">
<td align="left"><b>E-mail:</b></td>
<td align="left">
<INPUT class=field size="20"
onblur="if(this.value=='')this.value='Email';this.style.filter = 'Alpha(Opacity=60)'"
onfocus="if(this.value=='Email')this.value='';this.style.filter = 'Alpha(Opacity=100)'"
value=Email name=email ></td>
</tr>
<tr align="center">
<td align="left"><b>Overskrift:</b></td>
<td align="left">
<INPUT class=field size="20"
onblur="if(this.value=='')this.value='Overskrift';this.style.filter = 'Alpha(Opacity=60)'"
onfocus="if(this.value=='Overskrift')this.value='';this.style.filter = 'Alpha(Opacity=100)'"
value=Overskrift name=emne> </td>
</tr>
<tr>
<td><b>Hjemmeside:</b></td>
<td><INPUT class=field size="20"
onblur="if(this.value=='')this.value='Link';this.style.filter = 'Alpha(Opacity=60)'"
onfocus="if(this.value=='Link')this.value='';this.style.filter = 'Alpha(Opacity=100)'"
value=Link name=url> Husk ingen http://</td>
</tr>
<tr>
<td><b>ICQ:</b></td>
<td align="left"><INPUT class=field size="20"
onblur="if(this.value=='')this.value='ICQ';this.style.filter = 'Alpha(Opacity=60)'"
onfocus="if(this.value=='ICQ')this.value='';this.style.filter = 'Alpha(Opacity=100)'"
value=ICQ name=icq></td>
</tr>
<tr>
<td align="left" valign="top"><b>Besked:</b><br>
<br>
Skrift typer:<br>
<img src="billeder/oven/fed.gif"><br>
<br>
<br>
<img src="billeder/oven/kur.gif"><br>
<br>
<br>
<img src="billeder/oven/uns.gif"><br>
</td>
<td align="left"><TEXTAREA WRAP="physical" ROWS="9" COLS="50" NAME="besked" CLASS="mess"></TEXTAREA></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
</table>
</dd>
</dl><center>
<b><span style="cursor: hand; text-decoration:undeline;"onClick="window.open('http://www.friserverplads.dk/zob/tagwall/smileys.htm','Smileys', 'height=400,width=700,location=no')">Smileys, hvis du har lyst!<img src="billeder/smileys/big.gif"></span></b>
</center>
<TABLE BORDER="0" cellpadding="0" cellspacing="0" align="center">
<TR>
<TD><table border="0" cellpadding="2" cellspacing="0" BGCOLOR="#FFFFFF">
<tr>
<td colspan="13">Vælg et billede som overskrift!</td>
</tr>
<tr align="center">
<td><div align="center">
<img src="billeder/oven/1cool.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/2flov.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/3ligeglad.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/4argh.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/5devil.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/6huh.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/7big.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/8approve.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/9blink.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/10spm.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/11ked.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/12shock.gif" WIDTH="15" HEIGHT="15"></td>
<td align="center"><div align="center"><center><p>
<img src="billeder/oven/13.gif" WIDTH="15" HEIGHT="15"></td>
</tr>
<tr align="center">
<td><input type="radio" value="billeder/oven/1cool" checked name="funimg"></td>
<td><input type="radio" VALUE="billeder/oven/2flov" NAME="funimg"></td>
<td><input type="radio" name="funimg" value="billeder/oven/3ligeglad"></td>
<td><input type="radio" name="funimg" value="billeder/oven/4argh"></td>
<td><input type="radio" name="funimg" value="billeder/oven/5devil"></td>
<td><input type="radio" name="funimg" value="billeder/oven/6huh"></td>
<td><input type="radio" name="funimg" value="billeder/oven/7big"></td>
<td><input type="radio" name="funimg" value="billeder/oven/8approve"></td>
<td><input type="radio" name="funimg" value="billeder/oven/9blink"></td>
<td><input type="radio" name="funimg" value="billeder/oven/10spm"></td>
<td><input type="radio" name="funimg" value="billeder/oven/11ked"></td>
<td><input type="radio" name="funimg" value="billeder/oven/12shock"></td>
<td><input type="radio" name="funimg" value="billeder/oven/13"></td>
</tr>
</table></TD>
<TD valign="center" align="center" width="75" height="70"><br>
<INPUT TYPE="submit" VALUE="Tag" CLASS="buttom"><br>
<INPUT TYPE="reset" VALUE="Slet alt" CLASS="buttom">
</Form></p>
</center></TD>
</TR>
</TABLE>
</form>
</body>
</html>
plEaZZ hjælp mig!
