DaniWeb Forum Index > Web Development > ASP

MSSQL 2000 COnnect,Retreive, Delete

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Aug 2008

Posts: 4

Reputation: Farismkhalid is an unknown quantity at this point

Solved Threads: 0

Farismkhalid Farismkhalid is offline

Offline

Newbie Poster

MSSQL 2000 COnnect,Retreive, Delete

Nov 24th, 2008

Hello, im a rookie
i would like to connect to a MSSQL2000 server
Retreive information
post it on the website
then detele it on a condition
please help i have compiled this so far.

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
<%
'* database server parameters
Dim serverIP '* ip adress
Dim serverPORT '* ip port
Dim serverDB '* catalog/database name
Dim serverLOGIN '* username
Dim serverPASSWORD '* password
 
'* set your variables here
serverIP = "192.168.100.1"
serverPORT = "1433" '* default port is 1433/TCP
serverDB = "Northwind"
serverLOGIN = "login"
serverPASSWORD = "pass"
 
'* open connection
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"Network Library=DBMSSOCN;" & _
"Data Source=" & serverIP & "," & serverPORT & ";" & _
"Initial Catalog=" & serverDB & ";" & _
"User ID=" & serverLOGIN & ";" & _
"Password=" & serverPASSWORD & ";" & _
"Connect Timeout=5;Pooling=False"
Call con.Open()
%>
<%
'* database server parameters
Dim serverIP '* ip adress
Dim serverPORT '* ip port
Dim serverDB '* catalog/database name
Dim serverLOGIN '* username
Dim serverPASSWORD '* password

'* set your variables here
serverIP = "192.168.100.1"
serverPORT = "1433" '* default port is 1433/TCP
serverDB = "Northwind"
serverLOGIN = "login"
serverPASSWORD = "pass"

'* open connection
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"Network Library=DBMSSOCN;" & _
"Data Source=" & serverIP & "," & serverPORT & ";" & _
"Initial Catalog=" & serverDB & ";" & _
"User ID=" & serverLOGIN & ";" & _
"Password=" & serverPASSWORD & ";" & _
"Connect Timeout=5;Pooling=False"
Call con.Open()
%>

Last edited by peter_budo; Nov 28th, 2008 at 1:32 pm. Reason: Keep It Organized - For easy readability, always wrap programming code within posts in [code] (code blocks) and [icode] (inline code) tags.