Ok, I have an ASP page that I use to add several pieces of information
to a database and also display that information in an edit mode. The
problem is, when I use the page for edit, not all of the info is drawn
out of the database. Some of the information is drawn out and
displayed properly, but other information is not. The strangest part
is if I do a response.write to display the objRS() from the database
of a field that isn't coming up, it works. Here is the code to show
you what I'm talking about.
This is really weird, and any help would be GREATLY appreciated.
Thanks!
<html>
<head>
<title>~Data Entry~</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
</head>
<body>
<%
Dim edit
Dim id
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString =
"dsn=firms;uid=ssl_firms_admin;pwd=stacibeth;netwo rk=dbmssocn"
objConn.Open
DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
DIM mySQL
DIM company, address1, address2, city, state1, zip, county, site,
contact, contactlast, title, phone, email, premium, desc
edit=Request.QueryString("edit")
id=Request.QueryString("id")
if edit="1" then
mySQL= "SELECT * FROM agencies WHERE agency_id=" & id & ""
objRS.Open mySQL, objConn
response.write(objRS("phone_number"))
response.write("foo" & objRS("email_address"))
company = objRS("company_name")
address1 = objRS("street_address_1")
address2 = objRS("street_address_2")
city = objRS("city")
county = objRS("county")
state1 = objRS("state")
desc = objRS("description")
site = objRS("website_link")
contact = objRS("contact_person")
contactlast = objRS("contact_person_last")
title = objRS("contact_person_title")
phone = objRS("phone_number")
email = objRS("email_address")
premium = objRS("premium")
zip = objRS("zip")
end if
DIM objSelectedClassifications
Set objSelectedClassifications = CreateObject("Scripting.Dictionary")
if edit="1" then
DIM existingQuery
existingQuery = "SELECT * FROM agency_classification_rel WHERE
agency_id = " & id
DIM objExistingRS
SET objExistingRS = Server.CreateObject("ADODB.Recordset")
objExistingRS.Open existingQuery, objConn
Do While Not objExistingRS.EOF
objSelectedClassifications.Add
CSTR(objExistingRS("classification_id")), ""
objExistingRS.MoveNext
Loop
Set objExistingRS = Nothing
end if
DIM categoryQuery, countyQuery
categoryQuery = "SELECT category_id, category_name FROM
agency_categories ORDER BY category_sort"
countyQuery = "SELECT county_id, county_name FROM counties ORDER BY
county_name"
DIM objCategoryRS, objSubcategoryRS, objClassificationRS, objCountyRS
SET objCategoryRS = Server.CreateObject("ADODB.Recordset")
SET objSubcategoryRS = Server.CreateObject("ADODB.Recordset")
SET objClassificationRS = Server.CreateObject("ADODB.Recordset")
SET objCountyRS = Server.CreateObject("ADODB.Recordset")
objCountyRS.Open countyQuery, objConn
Dim countyOptions
countyOptions = "<option value=""0"">None</option>"
Do While Not objCountyRS.EOF
countyOptions = countyOptions & "<option value=""" &
objCountyRS("county_id") & """"
if CSTR(objCountyRS("county_id")) = CSTR(county) then
countyOptions = countyOptions & " selected"
end if
countyOptions = countyOptions & ">" & objCountyRS("county_name") &
"</option>"
objCountyRS.MoveNext
Loop
Set objCountyRS = Nothing
%>
<form name="companyform" method="post" action="companysubmit.asp">
<table border="0" cellspacing="0" cellpadding="4">
<tr>
<td>Company Name:
<input name="company" type="text" id="company" <% if company <>
"" then %>value="<%=company%>" <%end if%>size="75"></td>
</tr>
<tr>
<td>Street Address 1:
<input name="address1" type="text" id="address1" <% if address1
<> "" then %>value="<%=address1%>" <%end if%>size="75"></td>
</tr>
<tr>
<td>Street Address 2:
<input name="address2" type="text" id="address2" <% if address2
<> "" then %>value="<%=address2%>" <%end if%>size="75"></td>
</tr>
<tr>
<td>City:
<input name="city" type="text" id="city" <% if city <> "" then
%>value="<%=city%>" <%end if%>>
State:
<input name="state" type="text" id="state" <% if state1 <> "" then
%>value="<%=state1%>" <%end if%> size="4" maxlength="2">
Zip:
<input name="zip" type="text" id="zip" size="10" <% if zip <> ""
then %>value="<%=zip%>" <%end if%> maxlength="5">
</td>
</tr>
<tr>
<td>County:
<select name="county">
<%=countyOptions%>
</select></td>
</tr>
<tr><td>
<table border="0" cellspacing="0" cellpadding="2"><tr>
<%
objCategoryRS.Open categoryQuery, objConn
Do While Not objCategoryRS.EOF%>
<td>
<strong><%=objCategoryRS("category_name")%>:</strong><br>
<select name="classifications" size="15" multiple>
<%
DIM subCategoryQuery
subCategoryQuery = "SELECT subcategory_id, subcategory_name FROM
agency_subcategories WHERE category_id = " &
objCategoryRS("category_id") & " ORDER BY subcategory_sort"
objSubCategoryRS.Open subCategoryQuery, objConn
Do While Not objSubCategoryRS.EOF%>
<option value="" style="background-color:CC3333"
disabled>-=<%=objSubCategoryRS("subcategory_name")%>=-</option>
<%
DIM classQuery
classQuery = "SELECT classification_id, classification_name from
agency_classifications WHERE subcategory_id = " &
objSubCategoryRS("subcategory_id") & " ORDER BY classification_sort"
objClassificationRS.Open classQuery, objConn
Do While Not objClassificationRS.EOF
Response.write("<option value=""" &
objClassificationRS("classification_id") & """")
if objSelectedClassifications.Exists(CSTR(objClassifi cationRS("classification_id")))
then Response.write(" selected") end if
Response.write(">" & objClassificationRS("classification_name") &
"</option>")
objClassificationRS.MoveNext
Loop
objClassificationRS.Close
objSubCategoryRS.MoveNext
Loop
objSubCategoryRS.Close%>
</select>
</td>
<%
objCategoryRS.MoveNext
Loop
Set objCategoryRS = Nothing
Set objSubCategoryRS = Nothing
Set objClassificationRS = Nothing
%>
</tr></table>
</td></tr>
<tr>
<td>Web Site:
<input name="site" type="text" id="site" <% if site <> "" then
%>value="<%=site%>" <%end if%> size="60"></td>
</tr>
<tr>
<td>Contact Person First Name:
<input name="contact" type="text" id="contact" <% if contact <> ""
then %>value="<%=contact%>" <%end if%>>
Last Name:
<input type="text" name="contactlast" id="contactlast" <% if
contactlast <> "" then %>value="<%=contactlast%>" <%end if%>></td>
</tr>
<tr>
<td>Contact Person Title:
<input name="title" type="text" <% if title <> "" then
%>value="<%=title%>" <%end if%> id="title"></td>
</tr>
<tr>
<td>Phone Number:
<input name="phone" type="text" id="phone" <% if phone <> "" then
%>value="<%=phone%>" <%end if%>>
Email:
<input name="email" type="text" id="email" size="40" <% if email
<> "" then %>value="<%=email%>" <%end if%>></td>
</tr>
<tr>
<td>Premium Member:
<input name="premium" type="checkbox" id="premium" value="yes" <%
if premium <> "" then %>checked<%end if%>></td>
</tr>
<tr>
<td>Description of Services:<br>
<textarea name="description" cols="90" rows="10"
id="description"><% if desc <> "" then %><%=desc%><%end
if%></textarea></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="Submit"></td>
</tr>
</table>
<input type="hidden" value="<%=edit%>" name="edit">
<input type="hidden" value="<%=id%>" name="id">
</form>
</html>
<%
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%> 7 1795
PLEASE read this. http://www.aspfaq.com/show.asp?id=2081 And also please
understand that I am directing you to this page so that you can enable us to
help you, not to criticize or attack you or anything like that.
Ray at work
"Munzilla" <br********@gmail.com> wrote in message
news:4d**************************@posting.google.c om... Ok, I have an ASP page that I use to add several pieces of information to a database and also display that information in an edit mode. The problem is, when I use the page for edit, not all of the info is drawn out of the database. Some of the information is drawn out and displayed properly, but other information is not. The strangest part
use
value="<%=server.htmlencode(data variable here)%>
in your input statements.
--
Mark Schupp
Head of Development
Integrity eLearning www.ielearning.com
"Munzilla" <br********@gmail.com> wrote in message
news:4d**************************@posting.google.c om... Ok, I have an ASP page that I use to add several pieces of information to a database and also display that information in an edit mode. The problem is, when I use the page for edit, not all of the info is drawn out of the database. Some of the information is drawn out and displayed properly, but other information is not. The strangest part is if I do a response.write to display the objRS() from the database of a field that isn't coming up, it works. Here is the code to show you what I'm talking about. This is really weird, and any help would be GREATLY appreciated. Thanks!
<html> <head> <title>~Data Entry~</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Dim edit Dim id DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "dsn=firms;uid=ssl_firms_admin;pwd=stacibeth;netwo rk=dbmssocn" objConn.Open DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset")
DIM mySQL DIM company, address1, address2, city, state1, zip, county, site, contact, contactlast, title, phone, email, premium, desc edit=Request.QueryString("edit") id=Request.QueryString("id") if edit="1" then mySQL= "SELECT * FROM agencies WHERE agency_id=" & id & "" objRS.Open mySQL, objConn response.write(objRS("phone_number")) response.write("foo" & objRS("email_address")) company = objRS("company_name") address1 = objRS("street_address_1") address2 = objRS("street_address_2") city = objRS("city") county = objRS("county") state1 = objRS("state") desc = objRS("description") site = objRS("website_link") contact = objRS("contact_person") contactlast = objRS("contact_person_last") title = objRS("contact_person_title") phone = objRS("phone_number")
email = objRS("email_address")
premium = objRS("premium") zip = objRS("zip") end if DIM objSelectedClassifications Set objSelectedClassifications = CreateObject("Scripting.Dictionary") if edit="1" then DIM existingQuery existingQuery = "SELECT * FROM agency_classification_rel WHERE agency_id = " & id DIM objExistingRS SET objExistingRS = Server.CreateObject("ADODB.Recordset") objExistingRS.Open existingQuery, objConn Do While Not objExistingRS.EOF objSelectedClassifications.Add CSTR(objExistingRS("classification_id")), "" objExistingRS.MoveNext Loop Set objExistingRS = Nothing end if DIM categoryQuery, countyQuery categoryQuery = "SELECT category_id, category_name FROM agency_categories ORDER BY category_sort" countyQuery = "SELECT county_id, county_name FROM counties ORDER BY county_name" DIM objCategoryRS, objSubcategoryRS, objClassificationRS, objCountyRS SET objCategoryRS = Server.CreateObject("ADODB.Recordset") SET objSubcategoryRS = Server.CreateObject("ADODB.Recordset") SET objClassificationRS = Server.CreateObject("ADODB.Recordset") SET objCountyRS = Server.CreateObject("ADODB.Recordset") objCountyRS.Open countyQuery, objConn Dim countyOptions countyOptions = "<option value=""0"">None</option>" Do While Not objCountyRS.EOF countyOptions = countyOptions & "<option value=""" & objCountyRS("county_id") & """" if CSTR(objCountyRS("county_id")) = CSTR(county) then countyOptions = countyOptions & " selected" end if countyOptions = countyOptions & ">" & objCountyRS("county_name") & "</option>" objCountyRS.MoveNext Loop Set objCountyRS = Nothing %> <form name="companyform" method="post" action="companysubmit.asp"> <table border="0" cellspacing="0" cellpadding="4"> <tr> <td>Company Name: <input name="company" type="text" id="company" <% if company <> "" then %>value="<%=company%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 1: <input name="address1" type="text" id="address1" <% if address1 <> "" then %>value="<%=address1%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 2: <input name="address2" type="text" id="address2" <% if address2 <> "" then %>value="<%=address2%>" <%end if%>size="75"></td> </tr> <tr> <td>City: <input name="city" type="text" id="city" <% if city <> "" then %>value="<%=city%>" <%end if%>> State: <input name="state" type="text" id="state" <% if state1 <> "" then %>value="<%=state1%>" <%end if%> size="4" maxlength="2"> Zip: <input name="zip" type="text" id="zip" size="10" <% if zip <> "" then %>value="<%=zip%>" <%end if%> maxlength="5"> </td> </tr> <tr> <td>County: <select name="county"> <%=countyOptions%> </select></td> </tr> <tr><td> <table border="0" cellspacing="0" cellpadding="2"><tr> <% objCategoryRS.Open categoryQuery, objConn Do While Not objCategoryRS.EOF%> <td> <strong><%=objCategoryRS("category_name")%>:</strong><br> <select name="classifications" size="15" multiple> <% DIM subCategoryQuery subCategoryQuery = "SELECT subcategory_id, subcategory_name FROM agency_subcategories WHERE category_id = " & objCategoryRS("category_id") & " ORDER BY subcategory_sort" objSubCategoryRS.Open subCategoryQuery, objConn Do While Not objSubCategoryRS.EOF%> <option value="" style="background-color:CC3333" disabled>-=<%=objSubCategoryRS("subcategory_name")%>=-</option> <% DIM classQuery classQuery = "SELECT classification_id, classification_name from agency_classifications WHERE subcategory_id = " & objSubCategoryRS("subcategory_id") & " ORDER BY classification_sort" objClassificationRS.Open classQuery, objConn Do While Not objClassificationRS.EOF Response.write("<option value=""" & objClassificationRS("classification_id") & """") if
objSelectedClassifications.Exists(CSTR(objClassifi cationRS("classification_i
d"))) then Response.write(" selected") end if Response.write(">" & objClassificationRS("classification_name") & "</option>") objClassificationRS.MoveNext Loop objClassificationRS.Close objSubCategoryRS.MoveNext Loop objSubCategoryRS.Close%> </select> </td> <% objCategoryRS.MoveNext Loop Set objCategoryRS = Nothing Set objSubCategoryRS = Nothing Set objClassificationRS = Nothing %> </tr></table> </td></tr> <tr> <td>Web Site: <input name="site" type="text" id="site" <% if site <> "" then %>value="<%=site%>" <%end if%> size="60"></td> </tr> <tr> <td>Contact Person First Name: <input name="contact" type="text" id="contact" <% if contact <> "" then %>value="<%=contact%>" <%end if%>> Last Name: <input type="text" name="contactlast" id="contactlast" <% if contactlast <> "" then %>value="<%=contactlast%>" <%end if%>></td> </tr> <tr> <td>Contact Person Title: <input name="title" type="text" <% if title <> "" then %>value="<%=title%>" <%end if%> id="title"></td> </tr> <tr> <td>Phone Number: <input name="phone" type="text" id="phone" <% if phone <> "" then %>value="<%=phone%>" <%end if%>> Email: <input name="email" type="text" id="email" size="40" <% if email <> "" then %>value="<%=email%>" <%end if%>></td> </tr> <tr> <td>Premium Member: <input name="premium" type="checkbox" id="premium" value="yes" <% if premium <> "" then %>checked<%end if%>></td> </tr> <tr> <td>Description of Services:<br> <textarea name="description" cols="90" rows="10" id="description"><% if desc <> "" then %><%=desc%><%end if%></textarea></td> </tr> <tr> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <input type="hidden" value="<%=edit%>" name="edit"> <input type="hidden" value="<%=id%>" name="id"> </form> </html> <% Set objRS = Nothing objConn.Close Set objConn = Nothing %>
THanks for the help. DO you mean that I should do this for the
initial input statements or for displaying the data that is drawn and
fed into the input statements? Or both?
Thanks.
Actually, I tried that and it didn't work. The strangest part to me
is that it works if I have a response.write write out the variable's
value early on in the code. When I don't do that, it no longer works.
Why would my writing it out aid the variable in being properly set and
acknowledged?
Thanks.
"Mark Schupp" <ms*****@ielearning.com> wrote in message news:<er**************@TK2MSFTNGP10.phx.gbl>... use
value="<%=server.htmlencode(data variable here)%>
in your input statements.
-- Mark Schupp Head of Development Integrity eLearning www.ielearning.com
"Munzilla" <br********@gmail.com> wrote in message news:4d**************************@posting.google.c om... Ok, I have an ASP page that I use to add several pieces of information to a database and also display that information in an edit mode. The problem is, when I use the page for edit, not all of the info is drawn out of the database. Some of the information is drawn out and displayed properly, but other information is not. The strangest part is if I do a response.write to display the objRS() from the database of a field that isn't coming up, it works. Here is the code to show you what I'm talking about. This is really weird, and any help would be GREATLY appreciated. Thanks!
<html> <head> <title>~Data Entry~</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Dim edit Dim id DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "dsn=firms;uid=ssl_firms_admin;pwd=stacibeth;netwo rk=dbmssocn" objConn.Open DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset")
DIM mySQL DIM company, address1, address2, city, state1, zip, county, site, contact, contactlast, title, phone, email, premium, desc edit=Request.QueryString("edit") id=Request.QueryString("id") if edit="1" then mySQL= "SELECT * FROM agencies WHERE agency_id=" & id & "" objRS.Open mySQL, objConn response.write(objRS("phone_number")) response.write("foo" & objRS("email_address")) company = objRS("company_name") address1 = objRS("street_address_1") address2 = objRS("street_address_2") city = objRS("city") county = objRS("county") state1 = objRS("state") desc = objRS("description") site = objRS("website_link") contact = objRS("contact_person") contactlast = objRS("contact_person_last") title = objRS("contact_person_title") phone = objRS("phone_number")
email = objRS("email_address")
premium = objRS("premium") zip = objRS("zip") end if DIM objSelectedClassifications Set objSelectedClassifications = CreateObject("Scripting.Dictionary") if edit="1" then DIM existingQuery existingQuery = "SELECT * FROM agency_classification_rel WHERE agency_id = " & id DIM objExistingRS SET objExistingRS = Server.CreateObject("ADODB.Recordset") objExistingRS.Open existingQuery, objConn Do While Not objExistingRS.EOF objSelectedClassifications.Add CSTR(objExistingRS("classification_id")), "" objExistingRS.MoveNext Loop Set objExistingRS = Nothing end if DIM categoryQuery, countyQuery categoryQuery = "SELECT category_id, category_name FROM agency_categories ORDER BY category_sort" countyQuery = "SELECT county_id, county_name FROM counties ORDER BY county_name" DIM objCategoryRS, objSubcategoryRS, objClassificationRS, objCountyRS SET objCategoryRS = Server.CreateObject("ADODB.Recordset") SET objSubcategoryRS = Server.CreateObject("ADODB.Recordset") SET objClassificationRS = Server.CreateObject("ADODB.Recordset") SET objCountyRS = Server.CreateObject("ADODB.Recordset") objCountyRS.Open countyQuery, objConn Dim countyOptions countyOptions = "<option value=""0"">None</option>" Do While Not objCountyRS.EOF countyOptions = countyOptions & "<option value=""" & objCountyRS("county_id") & """" if CSTR(objCountyRS("county_id")) = CSTR(county) then countyOptions = countyOptions & " selected" end if countyOptions = countyOptions & ">" & objCountyRS("county_name") & "</option>" objCountyRS.MoveNext Loop Set objCountyRS = Nothing %> <form name="companyform" method="post" action="companysubmit.asp"> <table border="0" cellspacing="0" cellpadding="4"> <tr> <td>Company Name: <input name="company" type="text" id="company" <% if company <> "" then %>value="<%=company%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 1: <input name="address1" type="text" id="address1" <% if address1 <> "" then %>value="<%=address1%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 2: <input name="address2" type="text" id="address2" <% if address2 <> "" then %>value="<%=address2%>" <%end if%>size="75"></td> </tr> <tr> <td>City: <input name="city" type="text" id="city" <% if city <> "" then %>value="<%=city%>" <%end if%>> State: <input name="state" type="text" id="state" <% if state1 <> "" then %>value="<%=state1%>" <%end if%> size="4" maxlength="2"> Zip: <input name="zip" type="text" id="zip" size="10" <% if zip <> "" then %>value="<%=zip%>" <%end if%> maxlength="5"> </td> </tr> <tr> <td>County: <select name="county"> <%=countyOptions%> </select></td> </tr> <tr><td> <table border="0" cellspacing="0" cellpadding="2"><tr> <% objCategoryRS.Open categoryQuery, objConn Do While Not objCategoryRS.EOF%> <td> <strong><%=objCategoryRS("category_name")%>:</strong><br> <select name="classifications" size="15" multiple> <% DIM subCategoryQuery subCategoryQuery = "SELECT subcategory_id, subcategory_name FROM agency_subcategories WHERE category_id = " & objCategoryRS("category_id") & " ORDER BY subcategory_sort" objSubCategoryRS.Open subCategoryQuery, objConn Do While Not objSubCategoryRS.EOF%> <option value="" style="background-color:CC3333" disabled>-=<%=objSubCategoryRS("subcategory_name")%>=-</option> <% DIM classQuery classQuery = "SELECT classification_id, classification_name from agency_classifications WHERE subcategory_id = " & objSubCategoryRS("subcategory_id") & " ORDER BY classification_sort" objClassificationRS.Open classQuery, objConn Do While Not objClassificationRS.EOF Response.write("<option value=""" & objClassificationRS("classification_id") & """") if objSelectedClassifications.Exists(CSTR(objClassifi cationRS("classification_i d"))) then Response.write(" selected") end if Response.write(">" & objClassificationRS("classification_name") & "</option>") objClassificationRS.MoveNext Loop objClassificationRS.Close objSubCategoryRS.MoveNext Loop objSubCategoryRS.Close%> </select> </td> <% objCategoryRS.MoveNext Loop Set objCategoryRS = Nothing Set objSubCategoryRS = Nothing Set objClassificationRS = Nothing %> </tr></table> </td></tr> <tr> <td>Web Site: <input name="site" type="text" id="site" <% if site <> "" then %>value="<%=site%>" <%end if%> size="60"></td> </tr> <tr> <td>Contact Person First Name: <input name="contact" type="text" id="contact" <% if contact <> "" then %>value="<%=contact%>" <%end if%>> Last Name: <input type="text" name="contactlast" id="contactlast" <% if contactlast <> "" then %>value="<%=contactlast%>" <%end if%>></td> </tr> <tr> <td>Contact Person Title: <input name="title" type="text" <% if title <> "" then %>value="<%=title%>" <%end if%> id="title"></td> </tr> <tr> <td>Phone Number: <input name="phone" type="text" id="phone" <% if phone <> "" then %>value="<%=phone%>" <%end if%>> Email: <input name="email" type="text" id="email" size="40" <% if email <> "" then %>value="<%=email%>" <%end if%>></td> </tr> <tr> <td>Premium Member: <input name="premium" type="checkbox" id="premium" value="yes" <% if premium <> "" then %>checked<%end if%>></td> </tr> <tr> <td>Description of Services:<br> <textarea name="description" cols="90" rows="10" id="description"><% if desc <> "" then %><%=desc%><%end if%></textarea></td> </tr> <tr> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <input type="hidden" value="<%=edit%>" name="edit"> <input type="hidden" value="<%=id%>" name="id"> </form> </html> <% Set objRS = Nothing objConn.Close Set objConn = Nothing %>
If you view source on the rendered page what do you see for one of the input
tags that does not display the data?
What you describe with Response.Write is the opposite of what people usually
report (column data sometimes disappears after the first access for text
columns). Try putting the data into a variable first so that the recordset
column in only accessed once and then writing it out as many times as
needed.
--
Mark Schupp
Head of Development
Integrity eLearning www.ielearning.com
"Munzilla" <br********@gmail.com> wrote in message
news:4d**************************@posting.google.c om... Actually, I tried that and it didn't work. The strangest part to me is that it works if I have a response.write write out the variable's value early on in the code. When I don't do that, it no longer works. Why would my writing it out aid the variable in being properly set and acknowledged? Thanks.
"Mark Schupp" <ms*****@ielearning.com> wrote in message
news:<er**************@TK2MSFTNGP10.phx.gbl>... use
value="<%=server.htmlencode(data variable here)%>
in your input statements.
-- Mark Schupp Head of Development Integrity eLearning www.ielearning.com
"Munzilla" <br********@gmail.com> wrote in message news:4d**************************@posting.google.c om... Ok, I have an ASP page that I use to add several pieces of information to a database and also display that information in an edit mode. The problem is, when I use the page for edit, not all of the info is drawn out of the database. Some of the information is drawn out and displayed properly, but other information is not. The strangest part is if I do a response.write to display the objRS() from the database of a field that isn't coming up, it works. Here is the code to show you what I'm talking about. This is really weird, and any help would be GREATLY appreciated. Thanks!
<html> <head> <title>~Data Entry~</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Dim edit Dim id DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "dsn=firms;uid=ssl_firms_admin;pwd=stacibeth;netwo rk=dbmssocn" objConn.Open DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset")
DIM mySQL DIM company, address1, address2, city, state1, zip, county, site, contact, contactlast, title, phone, email, premium, desc edit=Request.QueryString("edit") id=Request.QueryString("id") if edit="1" then mySQL= "SELECT * FROM agencies WHERE agency_id=" & id & "" objRS.Open mySQL, objConn response.write(objRS("phone_number")) response.write("foo" & objRS("email_address")) company = objRS("company_name") address1 = objRS("street_address_1") address2 = objRS("street_address_2") city = objRS("city") county = objRS("county") state1 = objRS("state") desc = objRS("description") site = objRS("website_link") contact = objRS("contact_person") contactlast = objRS("contact_person_last") title = objRS("contact_person_title") phone = objRS("phone_number")
email = objRS("email_address")
premium = objRS("premium") zip = objRS("zip") end if DIM objSelectedClassifications Set objSelectedClassifications = CreateObject("Scripting.Dictionary") if edit="1" then DIM existingQuery existingQuery = "SELECT * FROM agency_classification_rel WHERE agency_id = " & id DIM objExistingRS SET objExistingRS = Server.CreateObject("ADODB.Recordset") objExistingRS.Open existingQuery, objConn Do While Not objExistingRS.EOF objSelectedClassifications.Add CSTR(objExistingRS("classification_id")), "" objExistingRS.MoveNext Loop Set objExistingRS = Nothing end if DIM categoryQuery, countyQuery categoryQuery = "SELECT category_id, category_name FROM agency_categories ORDER BY category_sort" countyQuery = "SELECT county_id, county_name FROM counties ORDER BY county_name" DIM objCategoryRS, objSubcategoryRS, objClassificationRS, objCountyRS SET objCategoryRS = Server.CreateObject("ADODB.Recordset") SET objSubcategoryRS = Server.CreateObject("ADODB.Recordset") SET objClassificationRS = Server.CreateObject("ADODB.Recordset") SET objCountyRS = Server.CreateObject("ADODB.Recordset") objCountyRS.Open countyQuery, objConn Dim countyOptions countyOptions = "<option value=""0"">None</option>" Do While Not objCountyRS.EOF countyOptions = countyOptions & "<option value=""" & objCountyRS("county_id") & """" if CSTR(objCountyRS("county_id")) = CSTR(county) then countyOptions = countyOptions & " selected" end if countyOptions = countyOptions & ">" & objCountyRS("county_name") & "</option>" objCountyRS.MoveNext Loop Set objCountyRS = Nothing %> <form name="companyform" method="post" action="companysubmit.asp"> <table border="0" cellspacing="0" cellpadding="4"> <tr> <td>Company Name: <input name="company" type="text" id="company" <% if company <> "" then %>value="<%=company%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 1: <input name="address1" type="text" id="address1" <% if address1 <> "" then %>value="<%=address1%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 2: <input name="address2" type="text" id="address2" <% if address2 <> "" then %>value="<%=address2%>" <%end if%>size="75"></td> </tr> <tr> <td>City: <input name="city" type="text" id="city" <% if city <> "" then %>value="<%=city%>" <%end if%>> State: <input name="state" type="text" id="state" <% if state1 <> "" then %>value="<%=state1%>" <%end if%> size="4" maxlength="2"> Zip: <input name="zip" type="text" id="zip" size="10" <% if zip <> "" then %>value="<%=zip%>" <%end if%> maxlength="5"> </td> </tr> <tr> <td>County: <select name="county"> <%=countyOptions%> </select></td> </tr> <tr><td> <table border="0" cellspacing="0" cellpadding="2"><tr> <% objCategoryRS.Open categoryQuery, objConn Do While Not objCategoryRS.EOF%> <td> <strong><%=objCategoryRS("category_name")%>:</strong><br> <select name="classifications" size="15" multiple> <% DIM subCategoryQuery subCategoryQuery = "SELECT subcategory_id, subcategory_name FROM agency_subcategories WHERE category_id = " & objCategoryRS("category_id") & " ORDER BY subcategory_sort" objSubCategoryRS.Open subCategoryQuery, objConn Do While Not objSubCategoryRS.EOF%> <option value="" style="background-color:CC3333" disabled>-=<%=objSubCategoryRS("subcategory_name")%>=-</option> <% DIM classQuery classQuery = "SELECT classification_id, classification_name from agency_classifications WHERE subcategory_id = " & objSubCategoryRS("subcategory_id") & " ORDER BY classification_sort" objClassificationRS.Open classQuery, objConn Do While Not objClassificationRS.EOF Response.write("<option value=""" & objClassificationRS("classification_id") & """") if
objSelectedClassifications.Exists(CSTR(objClassifi cationRS("classification_i d"))) then Response.write(" selected") end if Response.write(">" & objClassificationRS("classification_name") & "</option>") objClassificationRS.MoveNext Loop objClassificationRS.Close objSubCategoryRS.MoveNext Loop objSubCategoryRS.Close%> </select> </td> <% objCategoryRS.MoveNext Loop Set objCategoryRS = Nothing Set objSubCategoryRS = Nothing Set objClassificationRS = Nothing %> </tr></table> </td></tr> <tr> <td>Web Site: <input name="site" type="text" id="site" <% if site <> "" then %>value="<%=site%>" <%end if%> size="60"></td> </tr> <tr> <td>Contact Person First Name: <input name="contact" type="text" id="contact" <% if contact <> "" then %>value="<%=contact%>" <%end if%>> Last Name: <input type="text" name="contactlast" id="contactlast" <% if contactlast <> "" then %>value="<%=contactlast%>" <%end if%>></td> </tr> <tr> <td>Contact Person Title: <input name="title" type="text" <% if title <> "" then %>value="<%=title%>" <%end if%> id="title"></td> </tr> <tr> <td>Phone Number: <input name="phone" type="text" id="phone" <% if phone <> "" then %>value="<%=phone%>" <%end if%>> Email: <input name="email" type="text" id="email" size="40" <% if email <> "" then %>value="<%=email%>" <%end if%>></td> </tr> <tr> <td>Premium Member: <input name="premium" type="checkbox" id="premium" value="yes" <% if premium <> "" then %>checked<%end if%>></td> </tr> <tr> <td>Description of Services:<br> <textarea name="description" cols="90" rows="10" id="description"><% if desc <> "" then %><%=desc%><%end if%></textarea></td> </tr> <tr> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <input type="hidden" value="<%=edit%>" name="edit"> <input type="hidden" value="<%=id%>" name="id"> </form> </html> <% Set objRS = Nothing objConn.Close Set objConn = Nothing %>
On 6 Oct 2004 15:05:39 -0700, br********@gmail.com (Munzilla) wrote: Ok, I have an ASP page that I use to add several pieces of information to a database and also display that information in an edit mode. The problem is, when I use the page for edit, not all of the info is drawn out of the database. Some of the information is drawn out and displayed properly, but other information is not. The strangest part is if I do a response.write to display the objRS() from the database of a field that isn't coming up, it works. Here is the code to show you what I'm talking about.
Actually, it doesn't show us anything. :)
We'd need to know the input and what ouput you receive versus what
you're looking for. At first guss your input isn't escaping quote
characters.
Jeff
This is really weird, and any help would be GREATLY appreciated. Thanks!
<html> <head> <title>~Data Entry~</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Dim edit Dim id DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "dsn=firms;uid=ssl_firms_admin;pwd=stacibeth;netw ork=dbmssocn" objConn.Open DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset")
DIM mySQL DIM company, address1, address2, city, state1, zip, county, site, contact, contactlast, title, phone, email, premium, desc edit=Request.QueryString("edit") id=Request.QueryString("id") if edit="1" then mySQL= "SELECT * FROM agencies WHERE agency_id=" & id & "" objRS.Open mySQL, objConn response.write(objRS("phone_number")) response.write("foo" & objRS("email_address")) company = objRS("company_name") address1 = objRS("street_address_1") address2 = objRS("street_address_2") city = objRS("city") county = objRS("county") state1 = objRS("state") desc = objRS("description") site = objRS("website_link") contact = objRS("contact_person") contactlast = objRS("contact_person_last") title = objRS("contact_person_title") phone = objRS("phone_number")
email = objRS("email_address")
premium = objRS("premium") zip = objRS("zip") end if DIM objSelectedClassifications Set objSelectedClassifications = CreateObject("Scripting.Dictionary") if edit="1" then DIM existingQuery existingQuery = "SELECT * FROM agency_classification_rel WHERE agency_id = " & id DIM objExistingRS SET objExistingRS = Server.CreateObject("ADODB.Recordset") objExistingRS.Open existingQuery, objConn Do While Not objExistingRS.EOF objSelectedClassifications.Add CSTR(objExistingRS("classification_id")), "" objExistingRS.MoveNext Loop Set objExistingRS = Nothing end if DIM categoryQuery, countyQuery categoryQuery = "SELECT category_id, category_name FROM agency_categories ORDER BY category_sort" countyQuery = "SELECT county_id, county_name FROM counties ORDER BY county_name" DIM objCategoryRS, objSubcategoryRS, objClassificationRS, objCountyRS SET objCategoryRS = Server.CreateObject("ADODB.Recordset") SET objSubcategoryRS = Server.CreateObject("ADODB.Recordset") SET objClassificationRS = Server.CreateObject("ADODB.Recordset") SET objCountyRS = Server.CreateObject("ADODB.Recordset") objCountyRS.Open countyQuery, objConn Dim countyOptions countyOptions = "<option value=""0"">None</option>" Do While Not objCountyRS.EOF countyOptions = countyOptions & "<option value=""" & objCountyRS("county_id") & """" if CSTR(objCountyRS("county_id")) = CSTR(county) then countyOptions = countyOptions & " selected" end if countyOptions = countyOptions & ">" & objCountyRS("county_name") & "</option>" objCountyRS.MoveNext Loop Set objCountyRS = Nothing %> <form name="companyform" method="post" action="companysubmit.asp"> <table border="0" cellspacing="0" cellpadding="4"> <tr> <td>Company Name: <input name="company" type="text" id="company" <% if company <> "" then %>value="<%=company%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 1: <input name="address1" type="text" id="address1" <% if address1 <> "" then %>value="<%=address1%>" <%end if%>size="75"></td> </tr> <tr> <td>Street Address 2: <input name="address2" type="text" id="address2" <% if address2 <> "" then %>value="<%=address2%>" <%end if%>size="75"></td> </tr> <tr> <td>City: <input name="city" type="text" id="city" <% if city <> "" then %>value="<%=city%>" <%end if%>> State: <input name="state" type="text" id="state" <% if state1 <> "" then %>value="<%=state1%>" <%end if%> size="4" maxlength="2"> Zip: <input name="zip" type="text" id="zip" size="10" <% if zip <> "" then %>value="<%=zip%>" <%end if%> maxlength="5"> </td> </tr> <tr> <td>County: <select name="county"> <%=countyOptions%> </select></td> </tr> <tr><td> <table border="0" cellspacing="0" cellpadding="2"><tr> <% objCategoryRS.Open categoryQuery, objConn Do While Not objCategoryRS.EOF%> <td> <strong><%=objCategoryRS("category_name")%>:</strong><br> <select name="classifications" size="15" multiple> <% DIM subCategoryQuery subCategoryQuery = "SELECT subcategory_id, subcategory_name FROM agency_subcategories WHERE category_id = " & objCategoryRS("category_id") & " ORDER BY subcategory_sort" objSubCategoryRS.Open subCategoryQuery, objConn Do While Not objSubCategoryRS.EOF%> <option value="" style="background-color:CC3333" disabled>-=<%=objSubCategoryRS("subcategory_name")%>=-</option> <% DIM classQuery classQuery = "SELECT classification_id, classification_name from agency_classifications WHERE subcategory_id = " & objSubCategoryRS("subcategory_id") & " ORDER BY classification_sort" objClassificationRS.Open classQuery, objConn Do While Not objClassificationRS.EOF Response.write("<option value=""" & objClassificationRS("classification_id") & """") if objSelectedClassifications.Exists(CSTR(objClassifi cationRS("classification_id"))) then Response.write(" selected") end if Response.write(">" & objClassificationRS("classification_name") & "</option>") objClassificationRS.MoveNext Loop objClassificationRS.Close objSubCategoryRS.MoveNext Loop objSubCategoryRS.Close%> </select> </td> <% objCategoryRS.MoveNext Loop Set objCategoryRS = Nothing Set objSubCategoryRS = Nothing Set objClassificationRS = Nothing %> </tr></table> </td></tr> <tr> <td>Web Site: <input name="site" type="text" id="site" <% if site <> "" then %>value="<%=site%>" <%end if%> size="60"></td> </tr> <tr> <td>Contact Person First Name: <input name="contact" type="text" id="contact" <% if contact <> "" then %>value="<%=contact%>" <%end if%>> Last Name: <input type="text" name="contactlast" id="contactlast" <% if contactlast <> "" then %>value="<%=contactlast%>" <%end if%>></td> </tr> <tr> <td>Contact Person Title: <input name="title" type="text" <% if title <> "" then %>value="<%=title%>" <%end if%> id="title"></td> </tr> <tr> <td>Phone Number: <input name="phone" type="text" id="phone" <% if phone <> "" then %>value="<%=phone%>" <%end if%>> Email: <input name="email" type="text" id="email" size="40" <% if email <> "" then %>value="<%=email%>" <%end if%>></td> </tr> <tr> <td>Premium Member: <input name="premium" type="checkbox" id="premium" value="yes" <% if premium <> "" then %>checked<%end if%>></td> </tr> <tr> <td>Description of Services:<br> <textarea name="description" cols="90" rows="10" id="description"><% if desc <> "" then %><%=desc%><%end if%></textarea></td> </tr> <tr> <td><input type="submit" name="Submit" value="Submit"></td> </tr> </table> <input type="hidden" value="<%=edit%>" name="edit"> <input type="hidden" value="<%=id%>" name="id"> </form> </html> <% Set objRS = Nothing objConn.Close Set objConn = Nothing %> This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Dave |
last post by:
After following Microsofts admonition to reformat my system before doing a
final compilation of my app I got many warnings/errors upon compiling an rtf
file created in word. I used the Help...
|
by: Tom |
last post by:
A question for gui application programmers. . .
I 've got some GUI programs, written in Python/wxPython, and I've got
a help button and a help menu item. Also, I've got a compiled file
made with...
|
by: Sarir Khamsi |
last post by:
Is there a way to get help the way you get it from the Python
interpreter (eg, 'help(dir)' gives help on the 'dir' command) in the
module cmd.Cmd? I know how to add commands and help text to...
|
by: Sudheer Kareem |
last post by:
Dear All
Please tell me how to assosiate help files with my Vb.net
Project.
Regards
Sudheer
|
by: wukexin |
last post by:
Help me, good men. I find mang books that introduce bit "mang header
files",they talk too bit,in fact it is my too fool, I don't learn it, I have
do a test program, but I have no correct doing...
|
by: d.warnermurray |
last post by:
I am doing a project for school that involves creating help files for a html
authoring tool.
If you could help me with answers to some questions it would really help.
1. What tasks do you expect...
|
by: Steve |
last post by:
I have written a help file (chm) for a DLL and referenced it using Help.ShowHelp
My expectation is that a developer using my DLL would be able to access this help file during his development time...
|
by: Mark |
last post by:
I have loaded Visual Studio .net on my home computer and my laptop, but my
home computer has an abbreviated help screen not 2% of the help on my laptop.
All the settings look the same on both...
|
by: JonathanOrlev |
last post by:
Hello everybody,
I wrote this comment in another message of mine, but decided to post it
again as a standalone message.
I think that Microsoft's Office 2003 help system is horrible, probably...
|
by: trunxnirvana007 |
last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
'UPGRADE_WARNING: Couldn't resolve...
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
| |