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 however not on Linux machines. In either case the MDAC is available for free from Microsoft.
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
%>
