6 svar · 730 visningar · startad av ConnyFox
min sida funkar lokalt mot en remote mysql databas. men när jag laddar upp min sida på min server så funkar inte sidor med databaskopplingar.
en enkel asp sida med bara en response.write funkar, men som sagt inte om det sker en databaskoppling.
Sidan bara laddar och laddar utan att något händer.
någon som vet vad det kan bero på?
Ganska mycket kod.. men visst kan väll lägga upp en bit kod.
fast lite konstigt att koden funkar bra lokalt och att det inte kommer upp något felmeddelande.
<%
set connect = server.createobject("ADODB.connection")
Connect.Open "Driver={MySQL ODBC 3.51 Driver};Server=195.159.128.228;Database=***********;UID=*********;PWD=*******;"
set RS = server.createobject("ADODB.recordset")
select case request.querystring("func")
case "gbadd"
dim gbdatum
gbdatum = now
MySQL = "insert into stajl_gb (gbnamn,gbmail,gbhemsida,gbmeddelande,gbbild, gbdatum) values ('" & request.form("gbnamn") & "', '" & request.form("gbmail") & "', '" & request.form("gbhemsida") & "', '" & replace(request.form("gbmeddelande"), vbCrLf, "<br>") & "', '" & request.form("gbbild") & "', '" & gbdatum & "')"
set RS = connect.Execute(MySQL)
rs.close
set rs = nothing
case "addkomentar"
mysql = "update stajl_gb set gbkomentar = '" & request.form("gbkomentar") & "' where gbID = '" & request.querystring("gbID") & "'"
set RS = connect.Execute(MySQL)
rs.close
set rs = nothing
End select
MySQL = "select * from stajl_gb order by gbID Desc"
set RS = connect.Execute(MySQL)
%>
Har servern stöd för mysql?
Vad blir felmeddelandet då databaskopplingen inte funkar?
Asså jag e som sagt inte SÄKER på att det e databaskopplingen men asp funkar ju eftersom jag testade en sida med bara response.write på och den skrev ut som den skulle.
Jag får inget felmeddelande alls sidan bara laddar o laddar utan o visa nått.
här e lite mer kod.. kanske e nått där som e fel!
<% do until rs.eof
select case bgcolor
case "#FFFFFF"
bgcolor = "#EEEEEE"
case else
bgcolor = "#FFFFFF"
end select
with response
.write "<tr bgcolor='#EEEEEE'><td rowspan='2'><img src='bilder/" & rs("gbbild") & ".gif'></td>"
.write "<td width='55%'>" & rs("gbnamn") & "</td><td width='10%'>"
.write "<a href='mailto:" & rs("gbmail") & "'><img src='bilder/ico_mail.gif' border='0'></a>"
.write "</td><td width='10%'>"
.write "<a href='" & rs("gbhemsida") & "'><img src='bilder/ico_hemsida.gif' border='0'></a>"
.write "</td><td width='25%'>" & formatdate(rs("gbdatum")) & "</td></tr>"
.write "<tr><td colspan='4' class='txtgrey'>" & rs("gbmeddelande") & "</td></tr>"
end with
if not rs("gbkomentar") = "" then
response.write "<tr bgcolor='#EEEEEE'><td colspan='5'><i>Svar : " & rs("gbkomentar") & "</i></td></tr>"
else
select case session("inloggad")
case "true"
response.write "<tr bgcolor='#EEEEEE'><td><form name='gbkomentar' method='post' action='gb.asp?func=addkomentar&gbID=" & rs("gbid") & "'></td><td colspan='3'><input name='gbkomentar' class='input' size='70'> </td><td><input type='image' src='bilder/skicka.gif' value='submit'></form></td></tr>"
end select
end if
response.write "</table><br><table class='vtable' cellspacing='2' width='100%'>"
rs.movenext
loop
rs.close
set rs = nothing
%>
gå in på http://www.stajlsajten.nu så ser ni vad jag menar :D