Dr. Goodpet's Outlets

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Buffer = True Response.Expires = 0 'On Error Resume Next %> <% ' --- Declare Variables --- ' --- Database query variables dim str_sql ' a string sql statement dim str_table dim str_rst_msg dim obj_rst ' --- Recordset field variables dim int_field dim htm_name_url ' hyperlink name ' --- state search variables dim htm_select_states ' --- Row color variables dim int_row_number dim str_hex_row_color dim str_hex_odd_color dim str_hex_even_color ' --- Initialize Variables --- Set obj_rst = Server.CreateObject("ADODB.Recordset") ' --- create select state object str_sql = "SELECT fldStateID FROM tblStates ORDER BY fldStateID" obj_rst.Open str_sql, "Driver={MySQL};Server=sql.megasqlservers.com;Db=primary_goodpet_com;UID=dbm.goodpet.com;pwd=goo2002;", adOpenForwardOnly, adLockReadOnly, adCmdText htm_select_states = fncSelectFromRecordset (obj_rst, "fldStateID", "", "", "All States", "" , "fldStateID", "fldStateID") obj_rst.Close ' ---- create sql statement based on result of query string, if any if (Request.Form("fldStateID") = "" ) Then str_sql = "SELECT * FROM tblOutlets ORDER BY fldStateID, fldOutletName" else str_sql = "SELECT * FROM tblOutlets WHERE fldStateID = '" & Request.Form("fldStateID") & "' ORDER BY fldOutletName" end if ' ---- open database tblOutlets str_table = "tblOutlets" obj_rst.Open str_sql,"Driver={MySQL};Server=sql.megasqlservers.com;Db=primary_goodpet_com;UID=dbm.goodpet.com;pwd=goo2002;",adOpenForwardOnly,adLockReadOnly, adCmdText If ( (obj_rst.BOF) OR (obj_rst.EOF) ) Then str_rst_msg = "No Records Found." End If %> Dr. Goodpet's Outlets

Dr. Goodpet products are available at all Wal-Mart Canada stores.

<% Do Until (obj_rst.EOF) 'htm_name_url If Not (obj_rst.Fields("fldOutletUrl") = "") Then htm_name_url = "" htm_name_url = htm_name_url & obj_rst.Fields("fldOutletName") htm_name_url = htm_name_url & "" Else htm_name_url = obj_rst.Fields("fldOutletName") End If %> <% obj_rst.MoveNext Loop %>

Name	Street	City	State	Zip	Phone
<%=htm_name_url%>	<%=obj_rst.Fields("fldOutletStreet")%>	<%=obj_rst.Fields("fldOutletCity")%>	<%=obj_rst.Fields("fldStateID")%>	<%=obj_rst.Fields("fldOutletZip")%>	<%=DisplayAsPhoneNumber(obj_rst.Fields("fldOutletPhone"))%>

<% Response.Write(str_rst_msg) obj_rst.Close %>

Back to Dr. Goodpet's Homepage