Connection via ASP

eks.

<%
SQLserveradr="linux1.wannafind.dk"
SQLdatabase="xxx_dk_db"
SQLlogin="xxx"
SQLpassword="password"

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

conStr = "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase
conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386"

Conn.Open conStr
%>

objConn.Open "Driver={mySQL}; Server=ServerNavn; Option=16834; Database=DatabaseNavn;"

//>Rune

Fx.:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={mySQL}; Server=ServerNavn; Option=16834; Database=DatabaseNavn;"

strSQL = "SELECT * FROM tblTabelnavn"
Set objRs = objConn.Execute(strSQL)

While Not objRs.EOF
  Response.Write(objRs("feltnavn"))
objRs.MoveNext()
Wend

//>Rune

thx