Hej...mysql - asp
Jag har instalerat mysql 5.0 på en windows xp pro plattform. Jag har även installerat odbc drivern och fått den att kommunicera med min databas.
Men problemet uppstår då jag försöker få min asp sida att se databasen. Här kommer min connectionstring
cn.Open
"Server=localhost;" & _
"User ID=root;" & _
"Pwd=****;" & _
"Driver={MySQL ODBC 3.51 Driver};" & _
"Option=NUM;" & _
"db=av;" & _
och här försöker jag hämta poster från data basen:
<%
const adOpenStatic=3, adLockOptimistic=3
Dim rs, cn, strSQL
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
call connopen
StrSQL = "Select rubrik, innehall, datum from nyheter"
rs.Open strSQL,cn, adopenstatic, adLockOptimistic
%>
<%
If Response.IsClientConnected = true then
response.write "<table>"
Do while not rs.eof
for i=1 to 1
Response.Write "<tr>"
Response.Write "<td width=""100%"" height=""14"" nowrap><b>" & rs.Fields(0).Value & "</b></font></td>"
Response.Write "<td width=""100%"" height=""14"" nowrap ><b>" & rs.Fields(2).Value & "</b></td>"
Response.Write "</tr>" & vbcrlf
Response.Write "<tr>"
Response.Write "<td width=""100%"" height=""8"" nowrap colspan=""2"" >" & rs.Fields(1).Value & "</td>"
Response.Write "</tr>" & vbcrlf
Response.Write "<tr>"
Response.Write "<TD height=""30"">"
Response.Write ""
Response.Write "</TD>"
Response.Write "</tr>" & vbcrlf
next
rs.MoveNext
RowCount = RowCount + 1
loop
end if
rs.close
cn.close
set rs = Nothing
set cn = Nothing
response.write "</table>"
%>
felet?
Inte en aning, jag får inget fel men inte heller några som helst resultat, ingenting händer. Måste också nämna att när jag kollar på källan från explorern så visas hela koden även det som är mellan <% %> taggarna.
Jag tackar så mycket för er hjälp på förhand...