jo det kan i
det er koden fot tilfoj.asp:
<html>
<head>
<title>Iceo</title>
<LINK href="../scoll1.css" type=text/css rel=stylesheet>
</head>
<BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#003355" TEXT="#FFFFFF" style="font-size: 8 pt; font-family: Verdana; margin-left:20" link="#FFFFFF">
<center>
<p style="margin-top: 0; margin-bottom: 0">
<img border="0" src="../images/logotop.jpg" width="707" height="137"></p>
<p style="margin-top: 0; margin-bottom: 0">
</p>
<table width="716" border="0" cellspacing="0" cellpadding="0" height="1" style="border-collapse: collapse"><tr>
<td width="140" valign=top style="font-size: 8 pt; font-family: Verdana" height="1" background="images/menu-back1.jpg">
<div style="width: 130; height: 10; border: 1px solid #003355; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF; background-image: url('../images/menu.jpg')">
<p style="margin-top: 0; margin-bottom: 0" align="center">
<font color="#000000"><b>Menu</b></font></p>
</div>
<div style="width: 130; height: 86; background-image: url('../images/menu%20back.jpg')">
<p style="margin-top: 0; margin-bottom: 0" align="center">
<a href="../me.html">ME</a></p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<a href="../download.html">Download</a></p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<a href="../hp.html">HP'en</a></p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
</p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
GB!</p>
</div>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<p style="margin-top: 0; margin-bottom: 0" align="center"></div>
<td width="443" valign=top height="1" bgcolor="#003355">
<p style="margin-top: 0; margin-bottom: 0" align="center">
</p>
<table width="443" height="7" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td height="7">
<div style="width: 430; height: 18; border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-image: url('../images/menubig.jpg')">
<p align="center"><b><font size="1"> Så du vil skrive i min GB!</font></b></div>
</td>
</tr>
</table> <p style="margin-top: 0; margin-bottom: 0" align="center">
</p>
<p style="margin-top: 0; margin-bottom: 0" align="left">
<form action="opret.asp" method="post">
<p align="center">Nafn:<br><input type="text" name="nafn"><br>
Heimasíða:<br><input type="text" name="heimasida"><br>
Netfang:<br><input type="text" name="email"><br>
Skilaboð:<br><textarea rows="4" cols="19" name="skilabod"></textarea><br>
<input type="submit" value="Skrá">
</p>
</form>
<br>
</p>
</td>
<td width="133" valign=top height="1" background="images/menu-back1.jpg">
<div style="width: 130; height: 10; border: 1px solid #003355; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF; background-image: url('../images/menu.jpg')">
<p style="margin-top: 0; margin-bottom: 0" align="center">
<font color="#000000"><span style="font-size: 8pt"><b>Links</b></span></font></p>
</div>
<div style="width: 130; height: 91; background-image: url('../images/menu%20back.jpg')">
<p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt"><a target="_blank" href="
http://www.reschat.dk"> Reschat.dk</a></span></p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt"><a target="_blank" href="
http://www.newz.dk"> Newz.dk</a></span></p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt">
<a target="_blank" href="
http://www.eksperten.dk">Eksperten.dk</a></span></p> <p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt">
<a target="_blank" href="
http://www.serverguider.dk">Serverguider.dk</a></span></p> <p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt"><a target="_blank" href="
http://www.dummies.com"> Dummies.com</a></span></p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<span style="font-size: 8pt">
<a target="_blank" href="
http://www.microsof.com">Micosof.com</a></span></p> </div>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
<p style="margin-top: 0; margin-bottom: 0" align="center"> </p>
</td></tr>
</table>
</body>
</html>
og det er koden for opret.asp:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("is.mdb")
Conn.Open DSN
If len(Request.Form("skilabod")) > 200 Then
Response.Write "Skilaboðin eru of löng!,<br><a href='java script:history.back(1)'>Tilbage</a>"
ElseIf Request.Form("nafn") = "" Then
Response.Write "Skrifaðu nafn þitt,<br><a href='java script:history.back(1)'>Tilbage</a>"
ElseIf Request.Form("skilabod") = "" Then
Response.Write "Skrifaðu smá skilaboð,<br><a href='java script:history.back(1)'>Tilbage</a>"
ElseIf Request.Form("Heimasida") = "" Then
Response.Write "Það vantar að skrifa heimasíðu slóð,<br><a href='java script:history.back(1)'>Tilbage</a>"
ElseIf Request.Form("email") = "" Then
Response.Write "Það vantar að skrifa e-mail adressuna þína,<br><a href='java script:history.back(1)'>Tilbage</a>"
Else
antalMinutter = DateDiff("n", Session("tagwall"), Now(), vbMonday, vbFirstFourDays)
If antalMinutter < 10 Then
Response.Redirect("spam.asp")
End If
strSQL = "Insert into tagwall ("
strSQL = strSQL & "nafn, "
strSQL = strSQL & "skilabod, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "heimasida, "
strSQL = strSQL & "ip, "
strSQL = strSQL & "email) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & Server.HTMLEncode(Request("nafn")) & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request("skilabod")) & "', "
strSQL = strSQL & "'" & Now() & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request("heimasida")) & "', "
strSQL = strSQL & "'" & Request.ServerVariables("Remote_Host") & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request("email")) & "')"
Session("tagwall") = Now()
Response.Write "Takk:)<br><a href='tagwall.asp'>Til GB!</a>"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End If
%>
Ny bruger
Nybegynder
Opret
Preview
