Source Code for http://194.8.136.102/guestbook/entry.asp

COLOR LEGEND
Server Side Script
Client Side Script
Hyperlink
Include
Frames
Comments
Object Code Link
Standard HTML and Text

<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>Guestbook entry</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TOPMARGIN=0 LEFTMARGIN=0>

<CENTER>
<H1>Entry</H1>

<%
strId = Trim(Request.QueryString("Id"))
If 0 >= len(strId) Or Not IsNumeric(strId) Then
%>

You did not select an entry for displaying!

<%
Else
        sqlStatement = "select * from tGuestbook where Id=" & strId
        Set DataConn = Server.CreateObject("ADODB.Connection")
        DataConn.Open "softwing"
        Set cmdTemp = Server.CreateObject("ADODB.Command")
        Set RS = Server.CreateObject("ADODB.Recordset")
        cmdTemp.CommandText = sqlStatement
        Set cmdTemp.ActiveConnection = DataConn
        RS.Open cmdTemp, , 1, 1

        If RS.BOF or RS.EOF Then
%>

The entry you have selected does not exist in the guestbook!

<%  Else %>

<TABLE BORDER=0 WIDTH=500>
<TR><TH ALIGN=LEFT>Name</TH>
<TD><A HREF="mailto:<%=RS("EMADDR")%>"><%=RS("Name")%></A></TD></TR>
<TR><TH VALIGN=TOP ALIGN=LEFT>Information</TH>
<TD><%=RS("IMark")%></TD></TR>
<TR><TH VALIGN=TOP ALIGN=LEFT>Layout</TH>
<TD><%=RS("GMark")%></TD></TR>
<TR><TH VALIGN=TOP ALIGN=LEFT>Notes</TH>
<TD><%=RS("Notes")%></TD></TR>
</TABLE>

<%  
    End If
    Set cmdTemp = Nothing
    Set RS = Nothing
    Set DataConn = Nothing
End If 
%>
<P>

Back to the list of <A HREF="Guestbook.asp">Guestbook entries</A>

</CENTER>
</BODY>
</HTML>