.dsy:it. - [INFORMATICA] Asp

.dsy:it.
//www.dsy.it

[INFORMATICA] Asp

Posted by superfabius on 30-07-2003 12:50

Ho fatto queste due pagine asp ma come errore mi dice che non trova il database.....qualcuno mi sa spiegare dove si trova l'errore?

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str="Provider=MSDASQL.1;Data Source=AriMiddle;"
str=str & "User ID=;Password="
cnn.ConnectionString=str
cnn.Open
cnn.Close
Response.Write("Opened and closed<BR>")
str="Data Source=AriMiddle"
cnn.Open str
Response.Write("Opened and closed<BR>")
cnn.Close
</SCRIPT>

--------------------------------

<SCRIPT language=VBScript RUNAT=Server>
Function GetCoursesData(cnn)
Dim rs
Dim SQL
Dim str

SQL="SELECT Tabella1.CourseName From Tabella1"

Set rs=CreateObject("ADODB.Recordset")
rs.ActiveConnection=cnn
rs.Open SQL
While Not rs.EOF
str=str&rs("CourseName")&"<BR>"
rs.MoveNext
Wend
GetCoursesData=str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str="Data Source=AriMiddle"
cnn.Open str
Response.Write("Ciao")
Response.Write GetCoursesData(cnn)
cnn.Close
</SCRIPT>