<%
Dim Conn
Dim Cmd
Set Conn = Server.CreateObject("ADODB.Connection")
Set Cmd = Server.CreateObject("ADODB.Command")
Conn.CommandTimeout = 40
Conn.ConnectionString = "server=10.1.1.50;db=ThorGB;" &_
"uid=root;pwd=tacobell;driver=MySQL"
Conn.Open
Cmd.ActiveConnection = Conn
Cmd.CommandType = 1
Cmd.CommandText = "INSERT INTO GuestBook (Comments)" &_
" VALUES(" & Request("Comments") & ")"
Cmd.Execute
Conn.Close
%>
Thank You For Signing Our Guest Book.
Come Back Real Soon!!