Det är inte ditt fel, utan det är Brinkster som inte är så snäll mot dig.
Det var samma fel jag fick när jag skulle kolla på dina grejer för ett par veckor sedan, och sen gick det bara över...
Mvh
15 svar · 390 visningar · startad av plelkes
.... :x
På inmatningssidan har jag:
<html>
<head>
<title>Skriv in en patient</title>
<body>
<p> </p>
<p> </p>
<h1 align="center"><font size="7" face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Inskrivning
av Patient</strong></em></font></h1>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="800" border="1">
<form action="skrivtill_tblPatuppgifter.asp" method="post" name="pat_inskrivning">
<tr>
<td>Personnumer (ÅÅMMDDXXXX)</td>
<td><input name="pnr" type="text" id="pnr" maxlength="11"></td>
</tr>
<tr>
<td>Förnamn</td>
<td><input name="firstnamn" type="text" id="1namn" maxlength="20"></td>
</tr>
<tr>
<td>Efternamn</td>
<td><input name="familjenamn" type="text" id="famnamn" maxlength="25"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<TD COLSPAN ="2" ALIGN="CENTER">
<input type="submit" value="Ny patient">
</TD>
</TR>
</FORM>
</TABLE>
</body>
</html>
På asp-sidan:
<%
Set vatskeb = Server.CreateObject( "Adodb.Connection" )
vatskeb.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vatskeb.ConnectionString = "Data Source='" & MdbFilePath & "'"
vatskeb.open
personnr = Request.Form("pnr")
Tilltnamn = Request.Form("firstnamn")
Eftn = Request.Form("familjenamn")
ind = FormatDateTime(Date, 2)
strSQL = "INSERT INTO vbalans¨"
strSQL = strSQL & "(Indag, patID, ftFnamn, ftEnamn) "
strSQL = strSQL & "VALUES(#" & ind & "#, "& personnr & ", '" & Tilltnamn & "', '" & Eftn & "')"
Response.write strSQL
vatskeb.Execute strSQL, , 128
vatskeb.close
Set vatskeb = Nothing
Response.Redirect "meny.htm"
%>
Men som ni själva kan se Så lyckas jag inte ens
Response.write strSQL
utskrivet
Det är inte ditt fel, utan det är Brinkster som inte är så snäll mot dig.
Det var samma fel jag fick när jag skulle kolla på dina grejer för ett par veckor sedan, och sen gick det bara över...
Mvh
Det kan inte bero på ¨-tecknet som smygit sig in efter "vbalans" i SQL-frågan? :)
/red Tusan... :p
Så ni menar att jag (förutom skräptecknet) äntligen har lyckats få till strSQL?
Jag tycker i alla fall att det ser rätt ut.
Spärren på 11 tkn i personnummer Första resutatet blir ju "-"
Du har angett 10 teckenformen?
tack för det! :bire
Lasp skrev:
Spärren på 11 tkn i personnummer Första resutatet blir ju "-"
Du har angett 10 teckenformen?
Nu blev det bkäcksvart igen = fattar inget*snyft*
Sidan fungera fortfanade inte hos Brinkster...
Är det säkert att ni inte heller hittar felet?
För säkerhetsskull kommer koden en gång till:
formulär_sidan
<html>
<head>
<title>Skriv in en patient</title>
<body>
<p> </p>
<p> </p>
<h1 align="center"><font size="7" face="Verdana, Arial, Helvetica, sans-serif"><em><strong>Inskrivning
av Patient</strong></em></font></h1>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="800" border="1">
<form action="skrivtill_tblPatuppgifter.asp" method="post" name="pat_inskrivning">
<tr>
<td>Personnumer (ÅÅMMDDXXXX)</td>
<td><input name="pnr" type="text" id="pnr" maxlength="10"></td>
</tr>
<tr>
<td>Förnamn</td>
<td><input name="firstnamn" type="text" id="1namn" maxlength="20"></td>
</tr>
<tr>
<td>Efternamn</td>
<td><input name="familjenamn" type="text" id="famnamn" maxlength="25"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<TD COLSPAN ="2" ALIGN="CENTER">
<input type="submit" value="Ny patient">
</TD>
</TR>
</FORM>
</TABLE>
</body>
</html>
Sidan där själva tillägget till databasen:
<%
Set vatskeb = Server.CreateObject( "Adodb.Connection" )
vatskeb.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vatskeb.ConnectionString = "Data Source='" & MdbFilePath & "'"
vatskeb.open
personnr = Request.Form("pnr")
Tilltnamn = Request.Form("firstnamn")
Eftn = Request.Form("familjenamn")
ind = FormatDateTime(Date, 2)
strSQL = "INSERT INTO vbalans"
strSQL = strSQL & "(Indag, patID, ftFnamn, ftEnamn) "
strSQL = strSQL & "VALUES(#" & ind & "#, "& personnr & ", '" & Tilltnamn & "', '" & Eftn & "')"
Response.write strSQL
vatskeb.Execute strSQL, , 128
vatskeb.close
Set vatskeb = Nothing
Response.Redirect "meny.htm"
%>
Det enda som sker när sist nämnda sidan laddas
Sidan kan inte visas
Microsoft JET Database Engine error '80040e37'
Could not find output table 'vbalans'.
/vatskebalans/skrivtill_tblPatuppgifter.asp, line 20
Det verkar som du har Friendly HTTP Error messages / Egna http-felmeddelanden påslagna i din webbläsare. Ta bort den inställningen i så fall.
Tack @nders, jag kom på detta jag med...
NU får jag fel
INSERT INTO vbalans(Indag, patID, ftFnamn, ftEnamn) VALUES(#2003-12-08#, , '', '')
Syntax error in INSERT INTO statement.
Nu har jag fyllt i - då ser utskriften ut:
INSERT INTO vbalans(Indag, patID, ftFnamn, ftEnamn) VALUES(#2003-12-08#, 1212121212, 'Tolvan', 'Tolvansson')
Microsoft JET Database Engine error '80040e37'Could not find output table 'vbalans'.
/vatskebalans/skrivtill_tblPatuppgifter.asp, line 20
Mvh
@nders skrev:
För att det inte finns en tabell som heter vbalans. Vad är det för tabell du vill lägga in posten i? Syntaxen är ju INSERT INTO tabell.... Du måste specificera vilken byrålåda du vill lägga dina strumpor i, inte bara "Lägg dem i byrån!".
Gu´va knäpp jag är... :bire