Connecting to SQL Server Using ASP
When connecting to our Microsoft SQL Server be sure that the Microsoft Data Access Components (MDAC) have been installed on your server. These come standard on Windows-based servers but not on Linux machines. In either case, the MDAC is available for free from Microsoft.
You have a choice to retrieve the tax data aggregated for state-level reporting (Basic) or partitioned to local municipalities (Breakout).
Basic: Direct Connect to Microsoft SQL
Server using ASP
<%
strServer = "db.Zip2Tax.com"
strDBUsername = "z2t_link"
strDBPassword = "H^2p6~r"
strDatabase = "zip2tax"
'Open the connection
Set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver=SQL Server;server=" & strServer & ";uid=" & strDBUsername & ";pwd=" & strDBPassword & ";database=" & strDatabase
'Assign values to the input variables
strZipCode = "90210" : 'sample zip code must be between 90001 and 92999
strUsername = "sample"
strPassword = "password"
'Open the recordset using the stored procedure
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "z2t_lookup('" & strZipCode & "', '" & strUsername & "', '" & strPassword & "')", conn, 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")
Response.write "Shipping Taxable: " & rs("Shipping_Taxable")
End If
'Close the Database
rs.Close
conn.Close
%>
strServer = "db.Zip2Tax.com"
strDBUsername = "z2t_link"
strDBPassword = "H^2p6~r"
strDatabase = "zip2tax"
'Open the connection
Set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver=SQL Server;server=" & strServer & ";uid=" & strDBUsername & ";pwd=" & strDBPassword & ";database=" & strDatabase
'Assign values to the input variables
strZipCode = "90210" : 'sample zip code must be between 90001 and 92999
strUsername = "sample"
strPassword = "password"
'Open the recordset using the stored procedure
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "z2t_lookup('" & strZipCode & "', '" & strUsername & "', '" & strPassword & "')", conn, 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")
Response.write "Shipping Taxable: " & rs("Shipping_Taxable")
End If
'Close the Database
rs.Close
conn.Close
%>
Breakout: Direct Connect to Microsoft SQL Server using ASP
<%
strServer = "db.Zip2Tax.com"
strDBUsername = "z2t_link"
strDBPassword = "H^2p6~r"
strDatabase = "zip2tax"
'Open the connection
Set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver=SQL Server;server=" & strServer & ";uid=" & strDBUsername & ";pwd=" & strDBPassword & ";database=" & strDatabase
'Assign values to the input variables
strZipCode = "90210" : 'sample zip code must be between 90001 and 92999
strUsername = "sample"
strPassword = "password"
'Open the recordset using the stored procedure
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "z2t_lookup_extended('" & strZipCode & "', '" & strUsername & "', '" & strPassword & "')", conn, 3, 3, 4
'Read the results
If not rs.EOF then
Response.write "Zip_Code: " & Zip_Code & "
" Response.write "Sales_Tax_Rate: " & Sales_Tax_Rate & "
" Response.write "Post_Office_City: " & Post_Office_City & "
" Response.write "County: " & County & "
" Response.write "State: " & State & "
" Response.write "Shipping_Taxable: " & Shipping_Taxable & "
" Response.write "Sales_Tax_Rate_State: " & Sales_Tax_Rate_State & "
" Response.write "Sales_Tax_Rate_County: " & Sales_Tax_Rate_County & "
" Response.write "Sales_Tax_Rate_City: " & Sales_Tax_Rate_City & "
" Response.write "Sales_Tax_Rate_Special: " & Sales_Tax_Rate_Special & "
" Response.write "Sales_Tax_Reporting_Code_Total: " & Sales_Tax_Reporting_Code_Total & "
" Response.write "Sales_Tax_Reporting_Code_State: " & Sales_Tax_Reporting_Code_State & "
" Response.write "Sales_Tax_Reporting_Code_County: " & Sales_Tax_Reporting_Code_County & "
" Response.write "Sales_Tax_Reporting_Code_City: " & Sales_Tax_Reporting_Code_City & "
" Response.write "Sales_Tax_Reporting_Code_Special: " & Sales_Tax_Reporting_Code_Special & "
" End If
'Close the Database
rs.Close
conn.Close
%>
strServer = "db.Zip2Tax.com"
strDBUsername = "z2t_link"
strDBPassword = "H^2p6~r"
strDatabase = "zip2tax"
'Open the connection
Set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver=SQL Server;server=" & strServer & ";uid=" & strDBUsername & ";pwd=" & strDBPassword & ";database=" & strDatabase
'Assign values to the input variables
strZipCode = "90210" : 'sample zip code must be between 90001 and 92999
strUsername = "sample"
strPassword = "password"
'Open the recordset using the stored procedure
Set rs = server.CreateObject("ADODB.Recordset")
rs.open "z2t_lookup_extended('" & strZipCode & "', '" & strUsername & "', '" & strPassword & "')", conn, 3, 3, 4
'Read the results
If not rs.EOF then
Response.write "Zip_Code: " & Zip_Code & "
" Response.write "Sales_Tax_Rate: " & Sales_Tax_Rate & "
" Response.write "Post_Office_City: " & Post_Office_City & "
" Response.write "County: " & County & "
" Response.write "State: " & State & "
" Response.write "Shipping_Taxable: " & Shipping_Taxable & "
" Response.write "Sales_Tax_Rate_State: " & Sales_Tax_Rate_State & "
" Response.write "Sales_Tax_Rate_County: " & Sales_Tax_Rate_County & "
" Response.write "Sales_Tax_Rate_City: " & Sales_Tax_Rate_City & "
" Response.write "Sales_Tax_Rate_Special: " & Sales_Tax_Rate_Special & "
" Response.write "Sales_Tax_Reporting_Code_Total: " & Sales_Tax_Reporting_Code_Total & "
" Response.write "Sales_Tax_Reporting_Code_State: " & Sales_Tax_Reporting_Code_State & "
" Response.write "Sales_Tax_Reporting_Code_County: " & Sales_Tax_Reporting_Code_County & "
" Response.write "Sales_Tax_Reporting_Code_City: " & Sales_Tax_Reporting_Code_City & "
" Response.write "Sales_Tax_Reporting_Code_Special: " & Sales_Tax_Reporting_Code_Special & "
" End If
'Close the Database
rs.Close
conn.Close
%>
