<%@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 %> The Fushiginoiroito Workshop
 

 

KnitJapan.co.uk 

Submit a Link 

View Links in Japanese

Please feel free to submit knitting links to our database. Your link will be enabled and displayed on the links page once it has been checked by knitjapan. 
Country where the link refers to
Category
http:// Link (don't include 'http://')
Text that displays instead of the link
"> Description