Re: HELP! ASP and SQL problem.
From: Jeff Cochran (jeff.nospam_at_zina.com)
Date: 10/07/04
- Previous message: Just1Coder: "Prevent posting"
- In reply to: Munzilla: "HELP! ASP and SQL problem."
- Messages sorted by: [ date ] [ thread ]
Date: Thu, 07 Oct 2004 20:41:00 GMT
On 6 Oct 2004 15:05:39 -0700, brianwmunz@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;network=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(objClassificationRS("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
>%>
- Previous message: Just1Coder: "Prevent posting"
- In reply to: Munzilla: "HELP! ASP and SQL problem."
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
