6 svar · 220 visningar · startad av soffan76
Hej!
Någon smarting som vet vad det kan bero på om man har ett formulär som ska uppdatera en post i en SQL-databas men inget händer när man klickar på submit, browsern bara tuggar. Har testat samma kod i Access och där funkar det. Ingen evighetsloop finns heller som hindrar det hela. Nån som vet? Jag kan inte lösa detta...
Mvh Sofia
kör ditt formulär mot denna detta script http://script.webforum.nu/wf/Forum1/HTML/000062.html
då vet du vad du får för värden iaf
Ok, ska jag skriva så här?
<form method="get" action="http://script.webforum.nu/wf/Forum1/HTML/000062.html">
Hej igen och tack för scriptet, det var smart!
Nu har jag testat den och den visade alla värden, 5 stycken. Vad kan det då bero på? Är det SQL-databasen som är sjuk.
Vad kan jag göra?
Blir snart riktigt sur på detta...Jag har alltså ett formulär där värdet i detta fält skickas med dolt. Det är som ni ser ett session-värde.
<input type="hidden" name="PA_ID" value="<% = Session("PA_ID")%>">
Mottagar-koden ser sedan ut som följer:
SQL = "SELECT * FROM PA_Projektanmalan WHERE PA_ID = " & (Request.Form("PA_ID")) & " "
Här ska uppdeteringen i databasen ske men browsern som sagt bara tuggar.
Nån som kan hitta nåt galet?
nja, utan lite mer kod kan jag inte säga vad som är fel.
men, jag skulle vilja pilla lite även i denna sql-sats, och hoppas att du inte blir ledsen.
SQL = "SELECT * FROM PA_Projektanmalan WHERE PA_ID = " & Request.Form("PA_ID")
mvh,
Hej!
Det hjälpte dock inte med de förändringarna på SQL-satsen.
Jag skickar med koden...
Sid.1 som hämtar upp de poster som finns att redigera
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<link rel="STYLESHEET" type="text/css" href="sweco.css">
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PA"
If Request.Form("val") = "1" Then
SQL = "SELECT * FROM PA_Projektanmalan WHERE Status = '1' ORDER BY PA_ID "
Set RS = Conn.Execute(SQL) %>
<% Session.Abandon %>
<table>
<tr><td><h1>Projektanmälan</h1></td></tr>
<tr><td><h2><b>3. Verksamhetsdata</b></h2></td></tr>
</table>
<% If Rs.eof then %>
<table>
<tr><td><b>Inga godkända projektanmälningar finns inlagda.</b></td></tr>
<tr><td><a href="javascript:history.go(-1);">Tillbaka</a></td></tr>
</table>
<div id="Layer1" style="position:absolute; left:10px; top:500;">
<a href="form1.asp"> 1. Startsida</a>
<a href="form_2_select.asp">2. Projektdata</a>
<a href="form_3_select.asp">3. Verksamhetsdata</a>
<a href="form_4_select.asp">4. Projektorganisation</a>
<a href="form_5_select.asp">5. Projektekonomi</a>
<a href="form_6_select.asp">6. Projektdokumentation</a>
</div>
<% else %>
<table>
<tr><td><h4>Följande godkända projektanmälningar finns att redigera:</h4></td></tr>
<%Do Until rs.EOF%>
<TR>
<TD><B>Projektanmälan</B>: <%= rs("PA_ID")%><BR></TD>
</TR>
<TR>
<TD><B>Företag:</B> <%= rs("Company_ID")%><BR></TD>
</TR>
<TR>
<TD><B>Användare:</B> <%= rs("User_ID")%><BR></TD>
</TR>
<TR>
<TD><B>Tillfälligt projektnamn:</B> <%= rs("Projektnamn_Text")%><BR></TD>
</TR>
<tr><td>
<a href="form3.asp?PA_ID=<% =RS("PA_ID") %>" target="main">--->Redigera denna projektanmälan</a>
<hr noshade size="1">
</td></tr>
<% RS.MoveNext
Loop
RS.Close
conn.close
set rs = nothing
set conn = nothing
%>
</table>
<a href="form1.asp"> 1. Startsida</a>
<a href="form_2_select.asp">2. Projektdata</a>
<a href="form_3_select.asp">3. Verksamhetsdata</a>
<a href="form_4_select.asp">4. Projektorganisation</a>
<a href="form_5_select.asp">5. Projektekonomi</a>
<a href="form_6_select.asp">6. Projektdokumentation</a>
<% End if %>
Sid. 2 Själva formuläret
<html>
<head>
<title>Form 3</title>
<link rel="STYLESHEET" type="text/css" href="sweco.css">
<script language=javascript>
function nyttWindow(lank,bredd,hojd)
{
open(lank,'info','toolbar=no,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,left=520,top=250,width='+bredd+',height='+hojd);
}
</script>
</head>
<body>
<% Session("PA_ID")=(Request.QueryString("PA_ID")) %>
<form method="POST" action="form3_1.asp">
<table>
<tr><td><h1>Projektanmälan</h1></td></tr>
<tr><td><h2>3. Verksamhetsdata</h2></td></tr>
<tr><td>Projektanmälan: <%=Session("PA_ID")%> </td></tr>
</table>
<table>
<tr><td valign="top">
<table>
<tr><td><b>Berörda trafikslag och linjer (motsv)*</b></td></tr>
<tr><td> </td></tr>
<tr><td><a href="#" onclick="nyttWindow('form3_trafikslag.asp',500,450)">Välj trafikslag</a></td></tr>
<tr><td> </td></tr>
<tr><td>Speciella verksamhetskrav <br>avseende projektets utformning och utförande<br><textarea cols=25 rows=5 name="Verksamhetskrav_Text"></textarea></td></tr>
</table>
</td>
<td valign="top">
<table>
<tr><td><b>Styrande tider*</b></td></tr>
<tr><td>Önskad projektstart</td><td><input type=text name="Projekt_Start"></td></tr></td>
<tr><td>Önskad färdigställandetid</td><td><input type=text name="Projekt_Stop"></td></tr>
</table>
<table><tr><td>Anmärkan/kommentar <br>(t.ex. verksamhetskonsekvenser om annan genomförandetid)<br><textarea cols=25 rows=5 name="Tid_Text"></textarea>
</td></tr></table>
</td></tr>
</table>
<table><tr><td>
<input type="hidden" name="PA_ID" value="<% = Session("PA_ID")%>">
<input type="submit" value="Submit">
</td></tr></table>
</form>
<div id="Layer1" style="position:absolute; left:10px; top:500;">
<a href="form1.asp">1. Startsida</a>
<a href="form_2_select.asp">2. Projektdata</a>
<a href="form_3_select.asp">3. Verksamhetsdata</a>
<a href="form_4_select.asp">4. Projektorganisation</a>
<a href="form_5_select.asp">5. Projektekonomi</a>
<a href="form_6_select.asp">6. Projektdokumentation</a>
</div>
</body>
</html>
Sid. 3 Som ska lägga in uppgifterna i databasen..men vägrar göra detta..
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Form3_1</title>
<link rel="STYLESHEET" type="text/css" href="sweco.css">
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
set rs = server.createObject ("ADODB.Recordset")
Conn.Open "PA"
SQL = "SELECT * FROM PA_Projektanmalan WHERE PA_ID = " & Request.Form("PA_ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1,2
rs("Verksamhetskrav_Text") = Request.Form("Verksamhetskrav_Text")
rs("Projekt_Start") = cdate(Request.Form("Projekt_Start"))
rs("Projekt_Stop") = cdate(Request.Form("Projekt_Stop"))
rs("Tid_Text") = Request.Form("Tid_Text")
RS.Update
RS.Close
conn.close
set rs = nothing
set conn = nothing
%>
<p>
<b>Följande uppgifter är nu registrerade:</b>
<p>
<b>Projektanmälan:</b> <%= Request.Form("PA_ID") %><br>
<b>Kommentar ang. verksamhetskrav:</b> <%= Request.Form("Verksamhetskrav_Text") %><br>
<b>Projektstart:</b> <%= Request.Form("Projekt_Start") %><br>
<b>Projektstop:</b> <%= Request.Form("Projekt_Stop") %><br>
<b>Kommentar ang. tid:</b> <%= Request.Form("Tid_Text") %><br>
<div id="Layer1" style="position:absolute; left:10px; top:510;">
<a href="form1.asp">1. Startsida</a>
<a href="form_2.asp">2. Projektdata</a>
<a href="form_3.asp">3. Verksamhetsdata</a>
<a href="form_4.asp">4. Projektorganisation</a>
<a href="form_5.asp">5. Projektekonomi</a>
<a href="form_6.asp">6. Projektdokumentation</a>
</div>
</body>
</html>
Vad kan det vara för fel?