SQL on local

 <% 
' create an ADO database connection
set dbSubs = server.createobject("adodb.connection")
'dbSubs.Open "Driver = {SQL Server}; Server=(local); Database=Subscription;Uid=sa;Pwd=12511;" 
'dbSubs="Provider=sqloledb;Data Source=localhost;Initial Catalog=Subscription;Integrated Security=SSPI;"
dbSubs="Provider=sqloledb;Data Source=localhost;Initial Catalog=Subscription;User Id=sa;Password=12511;" 
 
'If any of our names have a single quote, we will need to doublt it for insert
chrFirstName = replace(chrFirstName, "'", "''")
chrLastName = replace(chrLastName, "'", "''")
chrAddress = replace(chrAddress, "'", "''")
chrCardName = replace(chrCardName, "'", "''")
chrCity = replace(chrCity, "'", "''")
 
' SQL insert statement to insert the subscription data into the database
sql = "insert into subscriptions(" & _
"chrFirstName, " & _
"chrLastName, " & _
"chrAddress, " & _
"chrCity, chrState, chrZipCode, chrPhone, chrEmail, chrCardName, " & _
"chrCardType, chrCardNumber, chrExpDate, intLength) Values ('" & _
chrFirstName & "', '" & chrLastName & "', '" & chrAddress & "', '" & _
chrCity & "', '" & chrState & "', '" & chrZipCode & "', '" & chrPhone & _
"', '" & chrEmail & "', '" & chrCardName & "', '" & chrCardType & "', '" & _
chrCardNumber & "', '" & chrExpDate & "', " & intLength & ")"
 
dbSubs.execute(sql)
'response.write(sql)
 
end if
%>

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=sqloledb;Data Source=(local);Initial Catalog=databaseName;User Id=username;Password=password;" 

If Conn.State = 1 Then
   Response.write("Connection is open")
Else
   Response.write("Connection couldn't be opened")
End If

Conn.Close

Set Conn = Nothing