Fra Access til mysql
Hej Jeg er ved at omkode et asp script hvor jeg gerne vil udskrifte en Access DB til en Mysql DB OG så var det at jeg fik en fejlmedelse som jeg ikke lige kan finde ud af.Her har i fejlmedelsen.
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Der opstod en eller flere fejl ved en OLE DB-handling på flere trin. Kontroller alle OLE DB-statusværdier. Handlingen blev ikke udført.
/ikasttelt.dk/koncerter_create.asp, line 149
Her har i koden:
Jeg har skrevet 149 ud foran den liner hvor fejlen er.
<!-- #include file="include/dbconnect.asp" -->
<%
Session.LCID = 1030
Response.Buffer = "True"
' -> DETTE ER VARIABLERNE TIL DATABASEN.
Dim myConn
Dim strSQL
' -> DSNLess FORBINDELSE TIL DATABASEN.
'Set myConn = Server.CreateObject("ADODB.Connection")
'myConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("koncerter.mdb")
Response.AddHeader "cache-control","private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "no-cache"
Response.CacheControl = "private"
Response.Expires = -1
Response.ExpiresAbsolute = Now() -1
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Koncert Kalender</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="expires" content="-1" />
<meta http-equiv="pragma" content="no-cache" />
<meta name="author" content="Koncert Kalender" />
<meta name="description" content="Koncert Kalender" />
<meta name="keywords" content="Koncert Kalender" />
<link href="kalender.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--
function GoToURL()
{
window.location="koncerter_create.asp";
}
//-->
</script>
</head>
<body onload="if ('Navigator' == navigator.appName) document.forms[0].reset();">
<!-- INDHOLD START -->
<div id="indhold">
<br />
<br />
<br />
<br />
<!-- FORMULAR START -->
<table cellpadding="10" cellspacing="0" style="margin-left: auto; margin-right: auto; width: 350px">
<tr>
<td style="width: 100%" valign="top">
<!-- FORM NAME NØDVENDIGT FOR "DATE PICKER" -->
<form action="koncerter_create.asp" method="post" name="koncert_formular">
<div>
<%
' -> DETTE GODKENDER INDHOLDET FRA FORMULARFELTERNE.
ValidateForm = Request.Form("ValidateForm")
If ValidateForm = "Yes" Then
Koncert_Dato = Request.Form("Koncert_Dato")
Koncert_Sted = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request.Form("Koncert_Sted"), "=", ""), "<", ""), ">", ""), """", """), "'", "´"), " ", " "), " ", " "))
If Koncert_Dato = "" Then
Error_Koncert_Dato = "Yes"
End If
If Koncert_Sted = "" Then
Error_Koncert_Sted = "Yes"
End If
End If
If ValidateForm = ""_
Or Error_Koncert_Dato = "Yes"_
Or Error_Koncert_Sted = "Yes"_
Then
%>
<span class="plain_text"><span class="bold">Koncert Dato</span> (mm/dd/åå) <span class="error"><%If Error_Koncert_Dato = "Yes" Then Response.Write "Hovsa! Prøv igen..." End If%></span>
<br /><input name="koncert_dato" onfocus="this.blur()" style="width: 100px" type="text" value="<%=Koncert_Dato%>" /><a href="java script:void(window.open('date_picker_koncerter.html?koncert_dato', '', 'width=200,height=210,top=250,left=250'))"><img alt="Dato Vælger" height="16" src="kalender.gif" style="border: 0px" title="Dato Vælger" width="16" /></a>
<br /></span>
<br />
<span class="plain_text"><span class="bold">Koncert Sted</span> <span class="error"><%If Error_Koncert_Sted = "Yes" Then Response.Write "Hovsa! Prøv igen..." End If%></span>
<br /><input maxlength="255" name="koncert_sted" style="width: 260px" type="text" value="<%=Koncert_Sted%>" />
<br /></span>
<br />
<table>
<tr>
<td><input class="button" onmouseout="this.className='button'" onmouseover="this.className='buttonHover'" type="submit" value="TILFØJ" /></td>
<td><input class="button" onclick="GoToURL();" onmouseout="this.className='button'" onmouseover="this.className='buttonHover'" type="reset" value="SLET" /></td>
</tr>
</table>
<!-- BEMÆRK: KNAPPERNE ER PLACEREDE I EN TABEL FOR FULD UDNYTTELSE AF 'mouseover' EGENSKABERNE I OPERA 7 BROWSEREN -->
<input name="ValidateForm" type="hidden" value="Yes" />
</div>
</form>
</td>
</tr>
</table>
<!-- FORMULAR SLUT -->
</div>
<!-- INDHOLD SLUT -->
</body>
</html>
<%
Function Dansk_Dato(dato_paa_dansk)
Dansk_Dato = Month(dato_paa_dansk) & "/" & Day(dato_paa_dansk) & "/" & Year(dato_paa_dansk)
End Function
Else
strSQL = "SELECT * FROM event"
Set rs = Server.CreateObject("ADODB.recordset")
rs.Open strSQL, myConn, 1, 3
' -> THESE ARE THE VARIABLES FROM THE FORM FIELDS.
Dim Koncert_Dato
Dim Koncert_Sted
rs.AddNew
rs("e_dato") = Dansk_Dato(Request.Form("Koncert_Dato"))
"149" rs("e_sted") = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Request.Form("Koncert_Sted"), "=", ""), "<", ""), ">", ""), """", """), "'", "´"), " ", " "), " ", " "))
rs.Update
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
Response.Redirect("default.htm")
End If
%>
