home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_06.cab / sampform.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  2.7 KB  |  100 lines
  1. <!-- noprod -->
  2. <% @language=vbscript %>
  3. <html>
  4. <head>
  5. <TITLE> Replace this text with the page title.</TITLE>
  6. </head>
  7. <body bgcolor="#FFFFFF" text="#000000">
  8.  
  9.  
  10. <% 
  11.     IF request.form ("Message")="True" THEN
  12.     strTB1=request.form("FirstTextBox")
  13.     strTB2=request.form("SecondTextBox")
  14.     strTB3=request.form("ThirdTextBox")
  15.     strTB4=request.form("FourthTextBox")
  16.     strMB1=request.form("FirstMemoBox")
  17.     strMB2=request.form("SecondMemoBox")
  18.     strCB1=request.form("FirstCheckBox")
  19.     strCB2=request.form("SecondCheckBox")
  20.     strRB=request.form("RadioButtons")
  21.  
  22.     IF strMB1 = "" THEN
  23.        iLenMB1=255
  24.       ELSE
  25.        iLenMB1 = Len(strMB1)
  26.     END IF
  27.  
  28.     IF strMB2 = "" THEN
  29.        iLenMB2=255
  30.       ELSE
  31.        iLenMB2 = Len(strMB2)
  32.     END IF
  33.  
  34.     strProvider="Driver=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("iisadmin") & "\website\sampledb.mdb;"
  35.     set objConn = server.createobject("ADODB.Connection")
  36.     objConn.Open strProvider
  37.     set cm = Server.CreateObject("ADODB.Command")
  38.     cm.ActiveConnection = objConn
  39.     
  40.     cm.CommandText ="INSERT INTO SampleDb(TB1,TB2,TB3,TB4,MB1,MB2,CB1,CB2,RB) VALUES (?,?,?,?,?,?,?,?,?)" 
  41.  
  42.     
  43.  
  44.     'First Text Box Parameter Statement
  45.     set objparam=cm.createparameter(, 200, , 255, strTB1)
  46.     cm.parameters.append objparam
  47.  
  48.     'Second Text Box Parameter Statement
  49.     set objparam=cm.createparameter(, 200, , 255, strTB2)
  50.     cm.parameters.append objparam
  51.  
  52.     'Third Text Box Value Parameter Statement
  53.     set objparam=cm.createparameter(, 200, , 255, strTB3)
  54.     cm.parameters.append objparam
  55.  
  56.     'Fourth Text Box Parameter Statement
  57.     set objparam=cm.createparameter(,200, , 255, strTB4)
  58.     cm.parameters.append objparam
  59.  
  60.     'First Memo Box Parameter Statement
  61.     set objparam=cm.createparameter(, 201, , iLenMB1, strMB1)
  62.     cm.parameters.append objparam
  63.  
  64.     'Second Memo Box Parameter Statement
  65.     set objparam=cm.createparameter(, 201, , iLenMB2, strMB2)
  66.     cm.parameters.append objparam
  67.  
  68.     'First Check Box Parameter Statement
  69.     set objparam=cm.createparameter(, 11, , 5, strCB1)
  70.     cm.parameters.append objparam
  71.  
  72.     'Second Check Box Parameter Statement
  73.     set objparam=cm.createparameter(, 11, , 5, strCB2)
  74.     cm.parameters.append objparam
  75.  
  76.     'Radio Buttons Parameter Statement
  77.     set objparam=cm.createparameter(, 200, , 10, strRB)
  78.     cm.parameters.append objparam
  79.     
  80.     cm.execute
  81.     response.write("Thank you!")  
  82. ELSE%>
  83.  
  84.  
  85. <h1><A NAME="H1_24293957"></A>Replace this text with the page heading.</h1>
  86.  
  87. <form name=sampform.asp  action="sampform.asp"  method="POST">
  88.  
  89. <!-- ===Paste form elements below this line=== -->
  90.  
  91.  
  92. <!-- ===Paste form elements above this line== -->
  93.  
  94.  
  95. <input  type="HIDDEN" name="Message" value="True">
  96. <input type="submit" value="Submit information">
  97. </form>
  98. <%End if%>
  99. </BODY>
  100. </html>