<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_mvw_STRING MM_editCmd.CommandText = "INSERT INTO mvw.cmnt (name, email, comment) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 99, Request.Form("name")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 99, Request.Form("email")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 999, Request.Form("comment")) ' adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "/index.html" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rsCmnt Dim rsCmnt_cmd Dim rsCmnt_numRows Set rsCmnt_cmd = Server.CreateObject ("ADODB.Command") rsCmnt_cmd.ActiveConnection = MM_mvw_STRING rsCmnt_cmd.CommandText = "SELECT * FROM mvw.cmnt" rsCmnt_cmd.Prepared = true Set rsCmnt = rsCmnt_cmd.Execute rsCmnt_numRows = 0 %> Untitled Document

Time in Mission Viejo is:

Send Your Comments!

Since I am always looking for ways to improve MV-Weather.com, I welcome comments, suggestions and especially criticism so please feel free to let me know what you think of the site. Thanks for taking the time to share your thoughts.

Name:
Email:
Comment:  

Email addresses will never be posted or used in any way other than to reply to your comment.


<% rsCmnt.Close() Set rsCmnt = Nothing %>