Sample Connections: Link your Website to Our Database

'Define variables
Dim ObjCon
Dim strZipCode
Dim strPassword
Dim SQL
Dim rs

'Assign values to the input variables
'Zip codes must be between 13301 and 13500 for sample purposes strZipCode = "13308" 'Send the zip code you want to look up as a string value
strPassword = "Sample"

'Open the connection
Set objcon=server.CreateObject("ADODB.Connection")
objcon.Open "driver=SQL Server;server=db.Zip2Tax.com;uid=z2t_sample;pwd=sample;database=zip2tax"

'Open the recordset
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "z2t_lookup_sample('" & strZipCode & "', '" & strPassword & "')", objcon, 3, 3, 4

'Read the results
If not rs.EOF then
    Response.write "Zip Code: " & rs("Zip_Code")
    Response.write "Sales Tax Rate: " & rs("Sales_Tax_Rate")
    Response.write "Post Office City: " & rs("Post_Office_City")
    Response.write "County: " & rs("County")
    Response.write "State: " & rs("State")
End If

'Close up
rs.Close
Set rs = Nothing
objcon.Close
Set objcon = Nothing

Here is what the result would look like
if you used Microsoft Query Analyzer . . .

'Send your look-up request

Response.Redirect "http://www.Zip2Tax.com/SampleTaxLookup.asp?zip=13308&IP=255.255.255.255&Pwd=Sample&Ret=www.mySite.com/TaxResult.asp"

'Create a page called TaxResult.asp

'Read the resulting request variables and set to session variables
Session("Zip") = Request("Zip")
Session("City") = Request("City")
Session("County") = Request("County")
Session("State") = Request("State")
Session("Jurisdiction") = Request("Jurisdiction")
Session("Rate") = Request("Rate")

'Return to the page you were working on
Response.Redirect "http://www.mySite.com/PageIWasOn.asp"

Sample Code Comming Soon

Results Comming Soon

Sample Code Comming Soon

Results Comming Soon