Har problemer med min kode...
Her er min kode... Der er et eller anden galt men kan ikke se hvad det er... I for hele koden så der ikke skulle gås galt af noget...Jeg får denne fejl når jeg laver et post i mit nyhedssystem
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/news/pw_opret.asp, line 46
Koden kommer her...
<%
Option Explicit
Dim Conn, DSN, vbGenerel, strIndsatAf, strNavn, strSQL, strKlar, strTil, strAf, strKorsel, strLeder, VisNyheder
Response.Buffer=True
%>
<%
If session("godkendt") = False then
Response.Redirect "login.asp"
Else
End If
%>
<!--#include file="dbconn.inc"-->
<html>
<head>
<title>??</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body>
<%
If Request.Form("klar")<>"" And Request.Form("navn")<>"" Then
strKlar = Replace(Request.Form("klar"), vbcrlf, "<br>")
strKlar = Replace(strKlar, "'", "''")
strSQL = "Insert into Nyheder ("
strSQL = strSQL & "Klar, "
strSQL = strSQL & "Dato, "
strSQL = strSQL & "Til, "
strSQL = strSQL & "Af, "
strSQL = strSQL & "Korsel, "
strSQL = strSQL & "Leder, "
strSQL = strSQL & "IndsatAF) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & strKlar & "', "
strSQL = strSQL & "'" & strTil & "', "
strSQL = strSQL & "'" & strAf & "', "
strSQL = strSQL & "'" & strKorsel & "', "
strSQL = strSQL & "'" & strLeder & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "', "
strSQL = strSQL & "'" & strNavn & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect ("pw_admin.asp")
Else
%>
<FORM method="post" action="pw_opret.asp" name="pwopret">
<table border=1 cellspacing=2 cellpadding=0 width='500' align=center style=border-collapse:collapse bordercolor=000000>
<tr><td width="70%">
Oprettet <% Response.Write FormatDateTime(Now, vbGenerel) %>
<input type="hidden" name="dato" size="30" readonly=yes value="<% Response.Write FormatDateTime(Now, vbGenerel) %>"></td>
<td width="30%">
<input type="text" name="navn" size="20" value="Dit navn her">
</td></tr><tr><td colspan="2">
<input name="klar" type="text" value="Skriv nyhed her..." size="60"><BR><BR>
<input name="til" type="text" value="Skriv nyhed her..." size="60"><BR><BR>
<input name="af" type="text" value="Skriv nyhed her..." size="60"><BR><BR>
<input name="korsel" type="text" value="Skriv nyhed her..." size="60"><BR><BR>
<input name="leder" type="text" value="Skriv nyhed her..." size="60">
</td></tr><tr><td colspan="2">
<INPUT TYPE="Submit" VALUE="Opret nyhed">
<INPUT TYPE="Reset" VALUE="Nulstil alt">
</td></tr></table>
</FORM>
<%
End if
%>
</body>
</html>
