<% @ LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT DIM cm, iLength,Email, MessageEmail, MessageBody, MessageDate, MessageFrom, MessagePrivate, MessageSubject, objConn, objParam, strProvider, strQuery, StrSort, URL, MessageURL, lead_cell, mid_cell, end_cell '********** Variable assignments lead_cell = "" mid_cell = "" end_cell = "" ' $Date: 10/20/97 4:17p $ ' $ModTime: $ ' $Revision: 14 $ ' $Workfile: signbook.asp $ If ((request("REQUEST_METHOD") = "POST") and ((request("CONTENT_LENGTH") > 0) and (request("CONTENT_LENGTH") < 1700))) then %> <% If request("MessageEmail") <> "" Then Email = request("MessageEmail") Else Email = "no email" End If If request("MessageBody") <> "" Then MessageBody = Request("MessageBody") Else MessageBody = "blank" End If If request("MessageDate") <> "" Then MessageDate = request("MessageDate") Else MessageDate = ( month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time() ) End If If request("MessageFrom") <> "" Then MessageFrom = request("MessageFrom") Else MessageFrom = "anonymous visitor" End If If request("MessagePrivate") <> "" Then MessagePrivate = request("MessagePrivate") Else MessagePrivate = "True" End If If request("MessageSubject") <> "" Then MessageSubject = request("MessageSubject") Else MessageSubject = "blank" End If If request("MessageURL") <> "" Then If request("MessageURL") = "http://" THEN URL = "no homepage" Else URL = request("MessageURL") End If Else URL = "no homepage" End If If MessageBody = "" Then iLength=255 Else iLength = Len(MessageBody) End If strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\iisadmin") & "\website\messages.mdb;" set cm = Server.CreateObject("ADODB.Command") set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider cm.ActiveConnection = objConn cm.CommandText="INSERT INTO Messages(MessagePrivate,MessageDate,MessageFrom,Email,URL,MessageSubject,MessageBody) VALUES (?, ?, ?, ?, ?, ?, ?)" Set objParam=cm.CreateParameter(, 200, , 255, MessagePrivate) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 200, , 255, MessageDate) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 201, , 255, MessageFrom) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 201, , 255, Email) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 201, , 255, URL) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 201, , 255, MessageSubject) cm.Parameters.Append objParam Set objParam=cm.CreateParameter(, 201, , iLength, MessageBody) cm.Parameters.Append objParam cm.Execute %> <% If request("private") <> "" Then response.write "Leave a private message" Else response.write "Sign the guest book" End If %> <% call stylesheet %>

Gabriel IONESCU

Resume:
 Personal Statement
 Personal Details
 Education
 Work Experience
 Computer Skills
 Referees
 Others
 Hobby
 Picture
See referees:
 Eltop
 Izvor
 Media
 As. Locatari
 Molten
Certificate:
 Computers Science
Leave your messege:
 Guest Book
<% response.write lead_cell & "Your name: " & mid_cell & "" & end_cell _ & lead_cell & "Your email address: " & mid_cell & "" & end_cell _ & lead_cell & "Home page URL: " & mid_cell & ""& end_cell _ & lead_cell & "Message subject: " & mid_cell & "" & end_cell _ & lead_cell & "Your message: " & mid_cell & "" & end_cell %>
<% If request("private") <> "" Then %>

Leave message

<% Else %> <% End If %>
Your name :
Your email address :
Home page URL :
Message subject :
Your message :
 
 
<% End If %>
Free Email:
Yahoo! 
Hotmail! 
Free Internet NZ:
zfree! 
Splurge! 
i4free! 
freenet! 
Internet Stuff:
Add URL 
Search on the Internet 
Free SMS 
Free fax/SMS/mail 
Free SMS/email 
Free Antivirus:
InoculateIT 
Windows Stuff:
Drivers 95/98/2ooo/NT 
Support/Drivers 
Hosted by www.Geocities.ws

1