Underlig server-stabilitets fejl

Hej

Vi har gennem et stykke tid oplevet voldsomme stabilitetsproblemer ved brug af B-ONES servere. De er helt sikker på, at problemet ikke er deres.

Vi opretter nogle sessions når vores brugere logger ind. Når vi så senere opretter et forum (skriver i databasen vha. asp), får vi denne fejl:

"HTTP Error 507
507 Unexpected

The Web server encountered an unexpected error while communicating with the ASP service.

Please contact the server's administrator if this problem persists."

Vi har nu prøvet at smide forbind-koden ind i selve filerne har vi lidt mere succes. Dog fungere den ikke optimalt. Nu er det stort set altid første gang man prøver at oprette et forum (skrive til databasen), at den laver fejl. Prøver man igen, så virker det oftest. Men det er jo ikke optimalt??? Det må gøres noget...

Her er koden til vores opret forum.asp , hvor connect koden er sat ind. Den som oftest laver fejlen første gang man prøver.


<%
katid = request("katid")
bruger = session("Brugernavn")
titel = replace(request("titel"),"'","`")
indhold = replace(request("indhold"),"'","`")

dato = Year(Date)

Select Case Month(Date)
case 0,1,2,3,4,5,6,7,8,9
dato = dato & "0"&Month(Date)
case else
dato = dato & ""&Month(Date)
End Select

Select Case Day(Date)
case 0,1,2,3,4,5,6,7,8,9
dato = dato & "0"&Day(Date)
case else
dato = date & Day(Date)
End Select

Select Case Hour(Now)
case 0,1,2,3,4,5,6,7,8,9
dato = dato & "0"&Hour(Now)
case else
dato = dato & Hour(Now)
End Select

Select Case Minute(Now)
case 0,1,2,3,4,5,6,7,8,9
dato = dato & "0"&Minute(Now)
case else
dato = dato & Minute(Now)
End Select

Select Case Second(Now)
case 0,1,2,3,4,5,6,7,8,9
dato = dato &"0"&Second(Now)
case else
dato = dato & Second(Now)
End Select


ConnString ="Driver={MySQL};SERVER=localhost;DATABASE=dbname;uid=username;PASSWORD=passwrd"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
set rst=server.CreateObject("ADODB.Recordset")

strSQL = "INSERT INTO tblForumer (KatId,Titel,Bruger,Dato,Besked) VALUES ('"&KatId&"','"&Titel&"','"&bruger&"','"&dato&"','"&indhold&"') "
rst.Open strSQL,Conn, 1 , 3, 1

strSQL2="Update tblMedlemmer Set Poster = Poster+1 Where Brugernavn = '"&bruger&"'"
rst.Open strSQL2,Conn, 1 , 3, 1

strPost="Update tblForumKategorier Set Indlag = Indlag+1, Seneste = '"&Dato&"' Where Id = '"&katId&"'"
rst.Open strPost,Conn, 1 , 3, 1

Conn.Close
Set Conn = Nothing


response.redirect("visForum.asp?id="&katid&"")
%>



Kan nogen finde fejlen???