Displaying multiple records in textarea 1

[rjn2001]

Hi, I am currently using this to display the recordset from my DB, it works fine. My issue is this:

I am wanting the results from the DB to be displayed in a text field, so they can be updated, (obviously this will include the relevant update statement etc), but I am unsure as to how to get this type of formatting into the page. The code below selects all of the data that is relevant to the userid from the database, each user can have any number of records in the table, from 1 to 1000, so each varying number of records is displyed.

Can anyone assist?

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "D:/Websites/richard/admin/db/users.mdb"

strSQL = "Select * From tblQual WHERE UserID ='" & strUsername & "'"
Set rsCheckUser = conn.Execute(strSQL)

If NOT rsCheckUser.EOF Then
  While NOT rsCheckUser.EOF
    strUserName = rsCheckUser("UserID")    

    If strUserName <> strOldUserName Then
      Response.Write "<tr><td colspan='2'><h2>" & strUserName & "</h2></td></tr>" & vbcrlf
    End If

    Response.Write "<tr><td><p>" & rsCheckUser("AchDte") & "</p></td><td><p>" & rsCheckUser("AchType") & "</p></td><td><p>" & rsCheckUser("AchTitle") & "</p></td><td><p>" & rsCheckUser("AchGrade") & "</p></td><td><p>" & rsCheckUser("InstitutionName") & "</p></td></tr>"
    strOldUserName = strUserName
    rsCheckUser.MoveNext
  Wend
Else
  Response.Write "<tr><td colspan='2'><p>No records found</p></td></tr>" & vbcrlf
End If

Set rsCheckUser = Nothing

conn.Close
Set conn = Nothing
%>

Thanks in advance

Richard Noon

http://www.davidmasonconsultancy.co.uk

 

[guitardave78]

are you just wanting

<input id="XXX" name="XXX" value="<%=rsCheckUser("XXX")%>" />

or am i missing the point ?

 

[rjn2001]

Probably am just wanting that, but my main concern is to how to slot this in with the code I am currently using.

Richard Noon

http://www.davidmasonconsultancy.co.uk

 

[guitardave78]

depends how you are doing it. If the whole page is written dynamically then you want somthing like this

response.write("<form id='xxx' name='xxx' method='post' action='xxx.asp'.>")
response.write("<input id='XXX' name='XXX' value='"&rsCheckUser("XXX")&"' />")
response.write("</form>")

so to match in to your code

    Response.Write "<tr><td><p><input id='AchDte' name='AchDte' value='" & rsCheckUser("AchType") & "'></p></td></tr>"

 

[rjn2001]

Hi, thanks for that Guitar!,

Works well, another Q tho, where would I put the vbcrlf so I can have the formatting of the text displyed on the page.

Big shiny star for you!

Richard Noon

http://www.davidmasonconsultancy.co.uk

 

[guitardave78]

Response.Write "<tr>"&vbcrlf&"    <td><p><input id='AchDte' name='AchDte' value='" & rsCheckUser("XXX") & "'></p></td>"&vbcrlf&"</tr>"&vbcrlf

thats how i would do it. Thanks for the stat