Vis tekst hvis datbase er ved at blive uploadet

noget i denne stil:

On error resume next '<-- Start fejlhåndtering
conn.open "DB connection"
if err.number <> 0 then
  response.write "Kunne ikke skaffe forbindelse til databasen."
  response.end
end if
on error goto 0 '<-- Reset til default fejlhåndtering

Min kode ser således ud:

<%
' Start fejl i tilfælde af forkert URL i browser, ved manglende argument: ?squadnumber=1 f.eks
if Request.Querystring = "" then
  Response.Write ("Missing argument: ?startnummer=1 example")
else
' slut fejl

dim startnummer
startnummer = request.querystring("startnummer")

strSQL = "Select * from tblspillerstarter where startnummer = "&startnummer&""
Set rs = Conn.Execute(strSQL)

if rs.eof = 0 then

  Response.Write "<br><center><b><font face=Verdana size=5>" & rs("starttekst") & "<br>"
  Response.Write "<font face=Verdana size=2>" & rs("dag") & (" d. ") & RS("dato") & (" kl. ") & RS("kl")& "</b></font>"
  Response.Write("<br><br><center><table border=0 cellpadding=3 cellspacing=0 style=border-collapse: collapse bordercolor=#111111")
  Response.Write("<tr><td><FONT FACE=Verdana SIZE=1><b><left>Bane</b></td>")
  Response.Write("<td><FONT FACE=Verdana SIZE=1><b><left>Navn</b></td>")
  Response.Write("<td><FONT FACE=Verdana SIZE=1><b>Klub</b></td>")
  Response.Write("<td><FONT FACE=Verdana SIZE=1><b><left>Række</b></td>")
  Response.Write("<td><FONT FACE=Verdana SIZE=1><b><left>Type</b></td></TR>")

Do

  Response.Write "<TR onMouseOver=this.bgColor='#6699CC' onMouseOut=this.bgColor='white'>"
  Response.Write "<td width=30><FONT FACE=Verdana SIZE=1><left>" &rs("Bane") & "</td>"
'  Response.Write "<td width=175><FONT FACE=Verdana SIZE=1><left>&nbsp" &rs("Spillernavn") & "</td>"
  Response.Write "<td width=175><FONT FACE=Verdana SIZE=1><left>" & " <a href='spiller.asp?spillerid="& rs("SpillerID") & "'>" &rs("Spillernavn") & "</td>"
  Response.Write "<td width=175><FONT FACE=Verdana SIZE=1><left>" & " <a href='klub.asp?klub="& rs ("klub") & "'>" &rs("klub") & "</td>"
'  Response.Write "<td width=150><FONT FACE=Verdana SIZE=1>" &rs("Klub") & "&nbsp</td>"
  Response.Write "<td width=150><FONT FACE=Verdana SIZE=1><left>" & " <a href='raekke.asp?raekkekort="& rs("raekkekort") & "'>" &rs("raekke") & "</td>"
'  Response.Write "<td width=135><left><FONT FACE=Verdana SIZE=1>&nbsp" &rs("raekke") & "</td>"
  Response.Write "<td width=60><left><FONT FACE=Verdana SIZE=1>" &rs("entrystatus")  & "</td></tr>"


  rs.MoveNext
Loop While Not rs.EOF

  Response.Write "</table><br>"

else

  Response.Write ("<br><b><font face=Verdana size=5><p align=center>Der er ingen tilmeldinger i denne start</br></div>")
end if
end if


Conn.Close
Set Conn = Nothing

%>

Hvordan skal det så sættes ind?

Det skal ikke sættes ind i den kode. Du må have en influde fil hvor du oprette DB forbindelsen (conn objektet). I den fil har du nogle linjer i denne stil:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DB connection string"

Det skal ændres til:
Set Conn = Server.CreateObject("ADODB.Connection")
On error resume next '<-- Start fejlhåndtering
Conn.Open "DB connection string"
if err.number <> 0 then
  response.write "Kunne ikke skaffe forbindelse til databasen."
  response.end
end if
on error goto 0 '<-- Reset til default fejlhåndtering

Det virker. Men kan jeg få den til at vise en siden, i stedet for bare at skrive at forbindelsen ikke kan findes?

Du smider bare en redirect ind i stedet:
if err.number <> 0 then
  response.redirect("minFejlSide.asp")
end if

Mange tak. Det virker. Kan du evt hjælpe mig med en sidste ting? Når den viser den side, skal den gerne anvende "tilbage" funktionen fra internet explorer efter 10 sek. Hvordan får jeg den til det?

Jeg har fundet løsningen på at sende videre efter 10 sekunder, men hvad skrive jeg i koden for at anvende "tilbage" funktionen?

Det kan du ikke gøre i ASP. Der skal du bruge java script:

<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
history.back()
//-->
</SCRIPT>