ASP med danske bogstaver som f.eks. Å.
Jeg sidder og roder lidt med at kode i ASP. Når jeg laver min forespørgsel i ved hjælp af Frontpage er der ingen problemer i at hente et felt i en databse med et dansk bogstav som Å. Når jeg ASP koder for jeg en fejl medling, der ser således ud.Microsoft VBScript compilation error '800a0408'
Invalid character
/Tester/10test.asp, line 45
Område = rs("område")
---^
Min database forespørgsel ser sådan ud.
<html>
<head>
<title>Ny side 1</title>
<STYLE>
P.page {page-break-before: always}
</STYLE>
</head>
<body>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from qryAPVoversigt"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<%
dim antal
DO WHILE NOT rs.EOF
Titel = rs("Titel")
APVNr = rs("APVNr")
Afdeling = rs("Afdeling")
APVBeskrivelse = rs("APVBeskrivelse")
APVBio = rs("APVBio")
APVErgo = rs("APVErgo")
APVFys = rs("APVFys")
APVKem = rs("APVKem")
APVTriv = rs("APVTriv")
APVUlyk = rs("APVUlyk")
Område = rs("område")
Dato = rs("Dato")
Navn = rs("Navn")
Losning = rs("Losning")
antal = antal + 1
if antal = 6 then
response.write "<P CLASS=page>"
antal = 0
end if
%>
<table width="100%" style="padding:0; border-collapse:collapse" cellspacing="0" border="0" bordercolor="#111111" cellpadding="0">
<tr>
<td width="260" valign="top">
<p align="left"><b><font size="2">Arbejdsrutine</font></b></td>
<td width="89" align="center" colspan="2">
<p align="left">
<font size="2"><b>APV nr:</b></font></td>
<td width="160" align="center">
<p align="left">
<b><font size="2">Afdeling:</font></b></td>
<td width="136" align="center" colspan="2">
<p align="left"><b><font size="2">Område:</font></b></td>
<td width="53" align="center">
<p align="right"><b><font size="2">Kategori:</font></b></td>
<td width="40" align="center">
<font size="1">Biologisk</font></td>
<td width="49" align="center">
<font size="1">Ergonomisk</font></td>
<td width="35" align="center">
<font size="1">Fysisk</font></td>
<td width="35" align="center">
<font size="1">Kemisk</font></td>
<td width="35" align="center">
<font size="1">Trivsel</font></td>
<td width="56" align="center">
<font size="1">Ulykkesrisiko</font></td>
</tr>
<tr>
<td width="260" valign="top" colspan="2">
<p align="left"><%=Titel%> </td>
<td width="89" align="left">
<font size="2">
<a title="Klik her for at se APV skema" style="text-decoration: none" href="alleapvskema.asp?APVNr=<%=APVNr%>"><%=APVNr%></a></font></td>
<td width="160" align="center" colspan="2">
<p align="left">
<%=Afdeling%></td>
<td width="136" align="center">
<p align="left">
<%=Områd%></td>
<td width="53" align="center">
</td>
<td width="40" align="center">
<input type="checkbox" name="APVBio"<% If rs("APVBio") = True Then Response.Write (" checked") %> value="ON"></td>
<td width="49" align="center">
<input type="checkbox" name="APVErgo"<% If rs("APVErgo") = True Then Response.Write (" checked") %> value="ON"></td>
<td width="35" align="center">
<input type="checkbox" name="APVFys"<% If rs("APVFys") = True Then Response.Write (" checked") %> value="ON"></td>
<td width="35" align="center">
<input type="checkbox" name="APVKem"<% If rs("APVKem") = True Then Response.Write (" checked") %> value="ON"></td>
<td width="35" align="center">
<input type="checkbox" name="APVTriv"<% If rs("APVTriv") = True Then Response.Write " checked" %> value="ON"></td>
<td width="56" align="center">
<input type="checkbox" name="APVUlyk"<% If rs("APVUlyk") = True Then Response.Write (" checked") %> value="ON"></td>
</tr>
<tr>
<td width="977" height="15" valign="middle" colspan="13">
<p align="left"><b><font size="2"></font></b></td>
</tr>
<tr>
<td width="977" height="15" valign="middle" colspan="13">
<p align="left"></td>
</tr>
<tr>
<td width="977" colspan="13" height="37">
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="25%">
<font size="2">
<a style="text-decoration: none; font-weight:700" title="Klik for at se hele handlingsskemaet" href="allehandling.asp?APVNrRef=<%=APVNr%>">Handling<font face="Times New Roman">
Klik </a> </font>
</td>
<td width="25%">
<font size="2"><span style="font-weight: 700">
<a style="text-decoration: none" title="Klik for at komme til APV handlings formular" href="../Formularer/Apvhandling.asp?APVNr=<%=APVNr%>">Udfyld handling Klik</a></span></font></td>
<td width="25%" valign="top"><b><font size="2">Registreret d.<%=Dato%></font>
</b></td>
<td width="25%" valign="top"><b><font size="2">Løses af: <%=Navn%> </font></b></td>
</tr>
<tr>
<td width="101%" colspan="4"><%=Losning%></td>
</tr>
<tr>
<td width="101%" colspan="4">
<hr color="#000000" size="3">
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Det er "Område" der er problemet. Kan det løses uden at jeg ændrer felt navnet. Det er muligt at ændre felt navnet i databasen, men det vil kræver en masse ændringer i andre forspørgsler.
