Dim oConn
Dim oRs
Dim strQuery
' Create ADO Connection Component to connect
' with database
On Error Resume Next
Set oConn = Server.CreateObject("ADODB.Connection"

oConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=supportDSN"
' Execute a SQL query and store the results
' within recordset
strQuery = " SELECT product_part.part_serial_number, product_part.Service_tag_no, product_part.product_id, product_part.part_no, part_table.part_description " &
" FROM service_master INNER JOIN (part_table INNER JOIN product_part ON part_table.part_no = product_part.part_no) ON service_master.Service_tag_no = product_part.Service_tag_no " & " WHERE (((product_part.Service_tag_no)='" & Request("text1"

& "') AND ((service_master.warranty_expires_on)>" & Date() & "

) "
Set oRs = oConn.Execute(strQuery)
If oRs.EOF = False Then
strPartDesc = oRs("part_description"

strSNo = oRs("part_serial_number"

End If
Set RetrieveProdDetails = oRs
oRs.close
oConn.close
If Err.number <> 0 Then
Response.Write "<br><br><br><br><center><b>Internal Error Occured. Please Try Again Later</b></center>"
Response.End
End If