I need some guidance. I have:
Code:
<td><%=rs("id")%></br>
<input type="hidden" name="id_<%=intRec%>"
value="<%=rs.Fields("id").Value%>">
<textarea name="gemetria_<%=intRec%>"
id="gemetria_<%=intRec%>">
</textarea>
<select name="insert" id="insert" size="1" style="width:150;">
<option value="passages">passages</option>
<option value="projective link">projective link</option>
<option value="book number linked to book number">book number linked to book number</option>
<option value="book number linked to chapter number">book number linked to chapter number</option>
<option value="book number linked to verse number">book number linked to verse number</option>
<option value="book number linked to number in text">book number linked to number in text</option>
<option value="chapter number linked to book number">chapter number linked to book number </option>
<option value="chapter number linked to book number">chapter number linked to book number</option>
<option value="chapter number linked to chapter number">chapter number linked to chapter number</option>
<option value="verse number linked to verse number">verse number linked to verse number</option>
<option value="book number linked to number in text">book number linked to number in text</option>
<option value="number linked to book">number linked to book</option>
<option value="number linked to chapter">number linked to chapter</option>
<option value="number linked to verse">number linked to verse</option>
<option value="number linked to number">number linked to number</option>
<option value="alphanumeric word">alphanumeric word</option>
<option value="non-alphanumeric word">non-alphanumeric word</option>
<option value="spoke of number in text">spoke of number in text</option>
<option value="word gemetrial passage">word gemetrial passage</option>
</select>
</td>
To each record I have assigned a textarea, a hidden and a select option dropdown. Within the table where updating is made I already have ID numbered. It has to update where the ID = <%=intRec%>.
I have difficulty setting up the response page. This was a model code where changes should be made:
Code:
Dim connStr, ans, i, rs, SQL, objConn
Dim TheString, ArrayTemp, NumberOfWords, Word
Dim insert
Dim passages
Dim intRec
insert = Request.Querystring("insert")
gemetria = Request.Querystring("gemetria")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Kjv.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open connStr
Set rs = objConn.Execute("SELECT * FROM insertanswer")
If Not rs.EOF Then
Dim gemetria
Dim iCounter
iCounter = 0
Do Until rs.EOF
SQL = "UPDATE insertanswer "
SQL = SQL & "SET passages = '" & gemetria & "'"
SQL = SQL & " WHERE id = id_" & intRec
objConn.Execute(SQL)
I get:
Quote:
quote:Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters
|
Martial Law 9/11 Rise of the Police State is now available! Visit our Martial Law movie section for complete info (click here), or order now by clicking the button below or by calling 888-253-3139
http://www.infowars.com/martial_law_911.htm