Hvad betyder fejlen "Typer stemmer ikke overens" i denne kode?
Hej AlleJeg laver et DB udtræk med følgende kode:
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->
<%
' Get table name
tablename = "[Adresseliste2]"
dbwhere = ""
a_search = ""
b_search = ""
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
' Build Query
strsql = "select * from [Adresseliste2]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
%>
<%
x_Navn = rs("Navn")
x_Adresse = rs("Adresse")
x_Postnr = rs("Postnr")
x_Bynavn = rs("Bynavn")
x_Privat_E2DMail = rs("Privat E-Mail")
x_Telefon_Hjemme = rs("Telefon Hjemme")
%>
<%
' Tells the browser to open excel
Response.ContentType = "application/vnd.ms-excel" %>
<html>
<body>
<table BORDER="1" align="center">
<tr>
<td>Navn</td>
<td>Adresse</td>
<td>Post nr.</td>
<td>By</td>
<td>E-mail</td>
<td>Telefon</td>
</tr>
<%
' Move to the first record
rs.movefirst
' Start a loop that will end with the last record
do while not rs.eof
%>
<tr>
<td>
<% response.Write rs("Navn") %>
</td>
<td>
<% response.Write rs("Adresse") %>
</td>
<td>
</td>
<td>
</td>
<td>
</td>
<td>
</td>
</tr>
<%
' Move to the next record
rs.movenext
' Loop back to the do statement
loop %>
</table>
</body>
</html>
<%
' Close and set the recordset to nothing
rs.close
set rs=nothing
%>
Hvad er den logiske forklaring på at koden virker hvis jeg sletter <% response.Write rs("Adresse") %> ??
Håber der er nogen der kan fortælle mig, hvordan man gør så jeg kan få udfyldt hele skemaet...
/Peter
