VBNet - Форум - ASP VBScript MySQL

Вопрос: ASP VBScript MySQL Добавлено: 10.01.08 12:16

Автор вопроса: Dimitry

Подскажите пожалуста, я только начинаю изучать Vb script, мне надо покдлючиться к базе данных МУСКУЛА, написал код, по всем примера и статьям должен быть рабочий, ошибок не выдает, но и не работает, подскажите в чем причина.
На сколько я понял почему не хочет подключаться к БД, но ошибки не выдает.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<% Dim oConn
Dim oRs
Dim sSQL
Dim sState
Dim sOut

On Error Resume Next
sOut = ""
Const adPersistXML = 1
Const adStateOpen = 1
Const adOpenStatic = 3
Const adLockBatchOptimistic = 4
Const adCmdText = 1

' Create and open a new Connection'
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "provider=MySQLProv;" & _
     "data source=localhost;" & _
     "user id=(имя);" & _
     "password=(пароль);"
If Err.Number <> 0 Then
   Response.Status = "500 " & Err.Source & ": " & Err.Description
Response.End
sOut = sOut & "ERROR"
Response.Write sOut
End If
Set oRS = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM publishers "
oRS.Open sSQL, oConn
oRS.MoveFirst
sOut = sOut & " Here is the data:"
sOut = sOut & "<TR><TH>Title</TH><TH>Address</TH></TR>'"
'sOut = sOut & "
'"
Do While Not oRS.EOF
sOut = sOut & "<TR>"
sOut = sOut & "<TD>"
RS.Fields("Title") & "</TD>"
sOut = sOut & "<TD>"
RS.Fields("Address") & "</TD>"
sOut = sOut & "</TR>"
oRS.MoveNext
Loop
'sOut = sOut & "" & oRS.Fields("id_publisher") & " " & oRS.Fields("title") & " " & oRS.Fields("address") & " "
strOut = strOut & "</TABLE>"
strOut = strOut & "<HR>"
sOut = sOut & "Thats it!"
'sOut = "Thats it!"
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Write sOut
%>
</body>
</html>

Заранее благодарен.

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: alroy Вопросов: 3 Ответов: 28	Профиль \| \| #1	Добавлено: 17.01.08 13:44
	Мое мнение такое использование вот этого: On Error Resume Next ведет к тому что вы не можете получить ошибку при которой она возникает а в скрипте не предусмотрена обработка такой ситуации!отключи его чтоб узнать где ошибка !! Ответить

Номер ответа: 2 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #2	Добавлено: 17.01.08 14:38
	+1024 Ответить

Страница: 1 |