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! />
-
-
- 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">
- <%
- ''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
- %>
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>