%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then link_txt=request.form("link") link_txt=replace(link_txt, ",", "") MM_editConnection = MM_kworld_STRING MM_editTable = "links" 'MM_editRedirectUrl = "thankyou_link.asp" MM_editRedirectUrl = "j_jump.php3?link=" & link_txt MM_fieldsStr = "link|value|select|value|link2|value" MM_columnsStr = "link|',none,''|classification|',none,''|description|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then link=request.form ("link") link=replace(link, "http://" , "") link_txt=request.form("link_txt") link_txt= Replace(link_txt,"'","''") descrip= request.form("description") descrip= Replace(descrip,"'","''") classification = Request.form("category") MM_editQuery = "insert into j_links (link , link_txt,classification, description, confirmed, country) values ('" & link & "','" & link_txt & "','" & classification & "','" & descrip & "',0,'" & request.form("country") & "')" 'response.write(MM_editQuery) If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %>
|
|
Submit a Link |
View Links in Japanese |
|
|
|
|||
|