Can't seem to crack updating a database

Spoogledrummer

Hi it's me again, still working on the sam 5 minute problem so feeling kind of thick now.

I've dumped the idea of using a textarea for now and am using a textbox instead but am struggling when it comes to updating the database, I've tried several different methods and the one I'm currently battling with is as follows:

Expand|Select|Wrap|Line Numbers

 %

set objconn=server.CreateObject("ADODB.connection")

objconn.Mode=3

objconn.Open ("DSN=localserver; User ID=blah; Password=blah; DATABASE=blah; APP=ASP Script")

set rs2=objconn.execute ("SELECT EmailType from Grades_email_tbl")

%> 

<%

Dim strEmailType

strEmailType = Request.Form("Select1")

%>  

<form method="post" action="email.asp">
 
<select name=select1>
 
<%do while not rs2.eof %>

<option><%=rs2(0)%></option>

<%

rs2.movenext

loop

rs2.Close 

set rs2 = nothing

%>

</select>

<% 

Dim query

query = "SELECT emailContents FROM Grades_email_tbl WHERE EmailType ='"&strEmailType&"'"

set rs3 = server.createObject("ADODB.recordset")

rs3.LockType =3

rs3.open query, objConn
 
%>

<input type=Submit value=Go! />

&nbsp;

&nbsp; &nbsp;

Email type selected: <%=strEmailType%>

<br /> 

</form>

<form method="post" action="emails_edit.asp" >

<input name="no" type="hidden" value= <%=strEmailType%>>

<table>
 
<input id="Text3" style="width: 200px" value=<%=rs3("emailContents")%> type="text" name="Text3" />
 
</table>
 
<input type="submit" name="action" value="Save">

</form>

<form name= "form2" method=post>
 
<tr><td align="center"  colspan="8">

    &nbsp;<% 

  ''Dim emailtxt

  ''emailtxt= ("&Request.Form("Text1")")

  ''Response.write bah("&Request.Form("emailtxt")&")

  ''rs3("emailContents")=Request.Form ("emailtxt.value")

  ''rs3.Update 

  %><input type="submit" value="Send" name="submit1" style="width: 50px">

</td></tr>

</table>
 
</body></html>
 
<%

set objdb=nothing

objconn.Close

set objconn=nothing

%>

Then the emails_edit.asp looks like:

Expand|Select|Wrap|Line Numbers

 <%@ Language=VBScript %>

<%Option Explicit%>
 
<html>

<body>

<%

Dim BolFound, rs4

Dim con2

set con2=server.CreateObject("ADODB.connection")

con2.Open ("DSN=localserver; User ID=blah; Password=blah; DATABASE=blah; APP=ASP Script")

set rs4=server.CreateObject("ADODB.recordset")

rs4.LockType =3 

rs4.Open "Grades_email_tbl", con2, &H0001
 
BolFound=false
 
Do while not (rs4.eof or BolFound)

   If(strComp(rs4("emailType"), request("strEmailType"), vbtextcompare)=0) then

     BolFound= True

   Else 

     rs4.movenext

   End if

Loop

rs4("emailContents")= Request.Form("text3")

rs4.update

rs4.Close

set rs4=nothing

set Con2=nothing

con2.close
 
%>
 
</body>

</html>

The select box works fine and when I hit the go button it loads the value of emailContents into my textbox, but when I his the Save button under the textbox I just get errors, the current one being a 'BOF or EOF is True" error so I'm guessing I'm not passing the values accross correctly, infact I've just confirmed that by trying to response.write r4("emailContents") so now I'm totally stumped

Spoogledrummer

I think I've cracked it, a piece of code that didn't work when I tried it now seems to work.

Expand|Select|Wrap|Line Numbers

 
<%@ Language=VBScript %>

<%Option Explicit%>
 
<%

Dim rs4, con2, strEmailType, Query2

strEmailType = request.Form("emails")

Query2 = "Select * from grades_email_tbl where emailtype ='"&strEmailType&"'"

set con2=server.CreateObject("ADODB.connection")

con2.Open ("DSN=localserver; User ID=blah; Password=blah; DATABASE=blah; APP=ASP Script")

set rs4=server.CreateObject("ADODB.recordset")

rs4.LockType =3 

rs4.Open Query2, con2, &H0001

rs4("emailContents")= Request.Form("emailtxt")

rs4.update

rs4.Close

set rs4=nothing
 
con2.close

set Con2=nothing

Response.Write "Your e-mail has been saved"

%>

Now all I have to do is get the second page to execute then return to the first page rather than a blank page, then figure out why another bit of code isn't e-mailing

jhardman

I'm glad you got it working. Are you saying you are still looking at how to redirect? The code for redirecting is

Expand|Select|Wrap|Line Numbers

response.redirect "firstPage.asp"

The only problem with this is that this won't send any data to firstPage.asp. You can solve this (if you need data sent) by putting the data in session variables

Expand|Select|Wrap|Line Numbers

 for each x in request.form

   session(x) = request.form(x)

next

or in querystring

Expand|Select|Wrap|Line Numbers

 dim nextPage

nextPage = "firstPage.asp?"

for each x in request.form

   nextPage = nextPage & x & "=" & server.urlEncode(request.form(x)) & "&"

next

nextPage = left(nextPage, len(nextPage)-1)

response.redirect nextPage

Let me know if this helps.

Jared

Spoogledrummer

Thanks but I cheated, I put up a message on the second page confirming the e-mail message had been saved then put a button on it to direct the user back to the first page.

Can't seem to crack updating a database

Post your reply

Similar topics