Bör nog vara Response.Recirect ...
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
RIGHT OUTER JOIN, uppdatera fält
22 svar · 373 visningar · startad av evesve · sida 2 av 2
Frågan, av evesve
Jag har två tabeller i samma Access-bas: Telefontabell och Intressen. I telefontabell (Huvudtabellen) har jag bl.a. kolumnerna: ID (Räknare) (Primärnyckel) Enamn (Text) Fnamn (Text) Telefon (Text) I Intressen har jag bl.a kolumnerna: Adressnr(Räknare) ID (Tal) (Primärnyckel) Fritidsintressen (Text) Tabellerna är relaterade till varandra som 1:1 med kolumnerna ID. I Tabellen Telefontabell finns f
Läs frågan i sin helhet →Eller Response.Redirect §e
------------------
Vänligen Jörgen :)
[Redigerat av jorgen den 06 feb 2002]
Ibland ser man inte skillnad på myggor och elefanter.
Funkar perfekt nu!
Tackar alla inblandade!
Här är den RÄTTA koden.
<% Option Explicit %>
<% response.buffer = true %>
<html>
<head>
<title>Uppdatera 2 Access-tabeller</title>
<meta name="GENERATOR" content="Arachnophilia 4.0">
<meta name="FORMATTER" content="Arachnophilia 4.0">
</head>
<body bgcolor="#ffff80" text="#ff0000" link="#0000ff" vlink="#800080" alink="#ff0000">
<!-- #include file="adovbs.inc" -->
<!-- #include file="grund.inc" -->
<!--==========CONNECT=============-->
<!-- #include file="strConnect_telefon.asp" -->
<%
'Dim Connect
'Dim strConnString
Set Connect = Server.CreateObject("ADODB.Connection")
'HEMMA
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\db\telefon.mdb"
' strConnString "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\db\telefon.mdb"
'WEBSAMBA
' Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/svenssons/db/Telefon.mdb")
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/svenssons/db/Telefon.mdb")
'Connect.Open strConnString
%>
<!--==========CONNECT SLUT=============-->
<!--==========UPPDATERA SIDAN=============-->
<%
Dim Connect, Recset, Visa, i, intressen, id, sql, rows, LaddaOm, vidare%>
<%If request.form("knapp") = "Uppdatera" Then
for i = 1 to request.form("Id").count%>
<%
intressen = "'" & replace(request.form("Fritidsintressen")(i),"'","''") & "'"
id = request.form("Id")(i)
sql = "update intressen set fritidsintressen = " & intressen _
& " where Id = " & id
connect.execute sql,rows,128
if rows = 0 then
sql = "insert into intressen(id,fritidsintressen) values(" & id & _
"," & intressen & ")"
connect.execute sql,,128
end if
next
Response.Redirect "a36.asp"
end if
%>
<!--==========UPPDATERA SIDAN SLUT=============-->
<!--==========ÖPPNA SIDAN=============-->
<%Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% Visa = "SELECT adressnr,Enamn,Fnamn,Telefon,fritidsintressen,telefontabell.id " & _
" FROM intressen RIGHT OUTER JOIN telefontabell ON telefontabell.Id = intressen.Id order by telefontabell.Enamn"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>
<!--==========ÖPPNA SIDAN SLUT=============-->
<!--==========VISA RESULTAT=============-->
<form method="POST" action="a36.asp" name="ad">
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<td width="10"><b>Id</b></td>
<td width="10"><b>AdrNr</b></td>
<td width="100"><b>Efternamn</b></td>
<td width="100"><b>Förnamn</b></td>
<td width="100"><b>Telefon</b></td>
<td width="100"><b>Intressen</b></td>
</tr>
<%Do While Not RecSet.EOF%>
<tr>
<td><% =RecSet("Id") %></td>
<td><% =RecSet("Adressnr") %></td>
<td><% =RecSet("Enamn") %></td>
<td><% =RecSet("Fnamn") %></td>
<td><% =RecSet("Telefon") %></td>
<td><input type="text" name="Fritidsintressen" value="<% =RecSet("Fritidsintressen") %>"></td>
</tr>
<input type="hidden" name="id" value="<%=recset("id")%>">
<% RecSet.MoveNext%>
<%Loop
RecSet.Close%>
<tr><TD colspan=6><input type="submit" name="knapp" value="Uppdatera"></TD>
</tr>
</TABLE>
<!--==========VISA RESULTAT SLUT=============-->
</body>
</html>
....om ingen har ännu bättre förslag.