%
Public Function GetAlternateCategories(ByVal JobTypeID)
Dim RS
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "leads","Ecweb","P!nkR0s31"
QueryString = "SELECT DISTINCT '
' AS URL, DisplayString FROM JobTypes WHERE (JobTypeGrandpa IN (SELECT DISTINCT JobTypeGrandpa FROM JobTypes as JT WHERE (JobTypeID = " & JobTypeID & "))) ORDER BY DisplayString"
RS.open QueryString, Conn
While Not RS.Eof
Response.write RS("URL")
RS.moveNext
Wend
RS.Close
Set RS=Nothing
Conn.Close
End Function
%>
Gas, Pellet, or Wood Stove - Install Contractors