d:/ftp_library/ermo/guestbook/
http://www.nyvej.dk/mortensen
/
d:/ftp_library/ermo/guestbook/

Filliste (Detail Page)

Use this page to view a single document on this web site.

d:\ftp_library\ermo\guestbook\sign.asp
http://www.nyvej.dk/mortensen/karaoke/d:/ftp_library/ermo/guestbook/sign.asp

    file size:  6.902 characters
 file created:  13. januar 2013  14:21:52
last modified:  3. december 2004  08:21:53

DOCUMENT CONTENTS

<%
'/----------------------------------------------\
'>********** Please choose you colors:**********<
'\----------------------------------------------/
HeadingCellBgColor="#f0f0f0"
HeadingCellTextColor="#000000"
CellBgColor="#f0f0f0"
CellTextColor="#000000"
%>

<html>
<head>
<title>Mortensens gæstebog</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 2">

</head>
<body>
<%
'/----------------------------------------------\
'>********* Data selected or requested *********<
'\----------------------------------------------/
Flag = Request.form("Flag")
If Flag = 1 then
Name = Request.form("Name")
Email = Request.form("Email")
Url = Request.form("Url")
Comment = Request.form("Comment")
Comment = server.HTMLencode(Comment) 'Do not allow HTML
Comment = Replace(Comment,VbCrlf," ")
'************************************************

'/----------------------------------------------\
'>*************** Validation *******************<
'\----------------------------------------------/
errmsg="<ul>"
If Replace(Name," ","") = "" then errmsg = errmsg & "<li>Navn mangler</li>"
 If Replace(Email," ","") = "" then 
 errmsg = errmsg & "<li>Email mangler</li>"
 ElseIf InStr(Email,"@")=0 then 
		'all emails contain an at sign eg. you@you.com
 errmsg = errmsg & "<li>Email er forkert</li>"
 ElseIf InStr(Email,".")=0 then
		'all emails contain a dot eg. you@you.com
 errmsg = errmsg & "<li>Email er forkert</li>"
 End If
'Url is not required
If Replace(Comment," ","") = "" then errmsg = errmsg & "<li>Kommentar mangler</li>"
errmsg = errmsg & "</ul>"
If NOT errmsg ="<ul></ul>" then
%>
Følgende fejl blev fundet: 
<%= errmsg %>
Klik "Tilbage" i browseren, <a href="javascript:history.go(-1)">eller klik her</a>
</body></html>
<%
Response.end 
End If
'************************************************

'/----------------------------------------------\
'>********** The new record is created *********<
'\----------------------------------------------/
'Comment next line out if you want the new record to appear as the last record in the guestbook
Newrecord = ""

Newrecord = Newrecord & "" & VbCrlf
Newrecord = Newrecord & "<table border='0' align='center' width='500' cellpadding='0'>" & VbCrlf
Newrecord = Newrecord & "<tr><td width='70' bgcolor='" & HeadingCellBgColor & "'>Date:</td><td bgcolor='" & CellBgColor & "'>" & now & "</td></tr>" & VbCrlf
Newrecord = Newrecord & "<tr><td width='70' bgcolor='" & HeadingCellBgColor & "'>Name:</td><td bgcolor='" & CellBgColor & "'>" & Name & "</td></tr>" & VbCrlf
Newrecord = Newrecord & "<tr><td width='70' bgcolor='" & HeadingCellBgColor & "'>Email:</td><td bgcolor='" & CellBgColor & "'><a href='mailto:" & Email & "'>" & Email & "</a></td></tr>" & VbCrlf

If NOT Url = "" then
Newrecord = Newrecord & "<tr><td width='70' bgcolor='" & HeadingCellBgColor & "'>Own Url:</td><td bgcolor='" & CellBgColor & "'><a href='" & Url &"'>" & Url & "</a></td></tr>" & VbCrlf
End If

Newrecord = Newrecord & "<tr><td colspan=2 bgcolor='" & HeadingCellBgColor & "'><center>Comments:</center></td></tr>" & VbCrlf
Newrecord = Newrecord & "<tr><td colspan=2 bgcolor='" & CellBgColor & "'>" & Comment & "</td></tr></table>" & VbCrlf
Newrecord = Newrecord & " " & VbCrlf & VbCrlf
If Instr(Newrecord,"") = 0 then
Newrecord = Newrecord & ""
End If
'************************************************

'/----------------------------------------------\
'>********** Edit data.txt *********************< 
'\----------------------------------------------/
fn = server.mappath("data.txt")			 'Find data.txt on server
Set fs = CreateObject("Scripting.FileSystemObject") 'Create the FileSystem object
Set htmlfile = fs.OpenTextFile(fn, 1, 0, 0)	 'Open data.txt
code = htmlfile.ReadAll				 'Read contents of file
htmlfile.close					 'Close data.txt
set htmlfile = nothing

code = Replace(Code,"",Newrecord) 'Add the new record

Set htmlfile = fs.CreateTextFile(fn)		 'ReCreate data.txt
htmlfile.write code				 'Write contents
htmlfile.close 					 'Close data.txt
set htmlfile = nothing
set fs = nothing				 'Close FileSystem object
' *****************************************
%>

<center>Tak for at du skrev i gæstebogen
 <be><a href='view.asp'>Se gæstebog</center>

<%
Else
%>

<center>Skriv i gæstebogen</center> 
<form action="sign.asp" method="post">
<table border="0" align="center">
<tr><td bgcolor='<%= HeadingCellBgColor %>'>">Navn:</td><td bgcolor='<%= CellBgColor %>'><input type="text" name="name" maxlength="30"></td></tr>
<tr><td bgcolor='<%= HeadingCellBgColor %>'>">Email:</td><td bgcolor='<%= CellBgColor %>'><input type="text" name="email" maxlength="30"></td></tr>
<tr><td bgcolor='<%= HeadingCellBgColor %>'>">Hjemmeside:</td><td bgcolor='<%= CellBgColor %>'><input type="text" name="url" maxlength="50"></td></tr>
<tr><td colspan=2 bgcolor="<%= HeadingCellBgColor %>"><center>">Kommentar:</center></td></tr>
<tr><td colspan=2 bgcolor='<%= CellBgColor %>'><textarea name="Comment" cols=30 rows=5></textarea></td></tr>
<tr><td>&nbsp;</td><td>Send kommentar <input type="hidden" name="flag" value=1><input type=submit value="&nbsp;&nbsp;&nbsp;&nbsp;Submit&nbsp;&nbsp;&nbsp;&nbsp;"></table>
</form>

<%
End If
%>
<A HREF="default.htm">Tilbage</A>
</body>
</html>

Erik Mortensen
20. december 2025 03:57:55