Hjälp med vb-script till asp-sida - uppdatera tabell med värden från en annan tabell

mankan

Godis är gott!
Gick med
28 Aug 2003
Ort
Det burgna Täby, stan på landet!
Hoj
Suzuki DR 650 SE 1999
Jag har en sida där jag presenterar styrelsen i en medlemsförening. Alla uppgifter om användarna kommer från en och samma databas men från två olika tabeller.

Namn på en styrelseledamot och dess funktion kommer från tabellen Styrelsen. Uppgifterna om medlemmarna kommer från tabellen RT_Familys. För att skilja användarna åt har alla ett användarnamn som är unikt för varje användare. Den tabellposten heter UName och finns i bägge tabeller.

Koden för sidan där styrelsen presenteras ser nu ut så här:

<%
'Nedstående kod sköter själva uppdateringen av tabellen Styrelsen.

SQL = "SELECT * From Styrelsen"
rs.Open SQL, Connection, adOpenStatic, adLockOptimistic
%>

<%
If Request.Form("Update") <> "" Then
RS("namn") = Request.Form("namn")
RS("funktion") = Request.Form("funktion")
RS("UName") = Request.Form("UName")
RS.update
End If
%>


<%'Nedstående avgör om sidan ska redigeras eller inte%>
<%If Request.QueryString("Edit") = "true" Then %>

<form method="POST" action="styrelsen.asp">
<input type="hidden" name="Update" value="<%=Request.QueryString("Edit")%>">

Ändra medlemmar i Rosa Tornets styrelse:<p>

Välj en funktion i listan:<br>
<SELECT NAME="funktion">
<OPTION></OPTION>

<%
'Eftersom jag ännu har en connection öppen mot tabellen Styrelsen loopar jag igenom dess poster så att man kan välja ut en av de aktuella posterna
Do while NOT rs.eof
%>

<OPTION><%=rs("funktion")%></OPTION>

<%
rs.MoveNext
Loop
rs.close
%>

</SELECT>

<p>

Välj ett namn i listan:<br>

<SELECT NAME="namn">
<OPTION></OPTION>

<%'Här öppnar jag en ny connection mot den tabell som innehåller alla uppgifter om medlemamrna, bla. användarnamn och fullt namn. Både mammor och pappor kan vara med, därav två olika options, och loopar igenom den.
SQL = "SELECT Mother, Father, UName From RT_Familys"
rs.Open SQL, Connection, adOpenStatic, adLockOptimistic
%>

<%
Do while NOT rs.eof
%>

<OPTION><%=rs("Mother")%></OPTION>
<OPTION><%=rs("Father")%></OPTION>

<%
rs.MoveNext
Loop
%>

</SELECT>

<p>
<font face="Arial" size="2"></font>
<input type="submit" value="Uppdatera">

<%
Else

rs.close

'Om sidan inte ska uppdateras eller redigeras presenteras dess styrelse enligt nedan. Jag kopplar medlemmarna i styrelsen mha. användarnamnet, annars skulle alla användare loopas igenom.

SQL = "SELECT * From Styrelsen, RT_Familys Where Styrelsen.UName = RT_Familys.UName"
rs.Open SQL, Connection, adOpenStatic, adLockOptimistic
%>

Rosa Tornets styrelse:<p>

<%
Do while NOT rs.eof
%>

<%
If rs("namn") = rs("Mother") Then
%>

<%=rs("funktion")%>:<br><A HREF="mailto:<%=rs("EMail")%>"><%=rs("namn")%></A><br>Telefon hem: <%=rs("PHome")%><br>Telefon arbete: <%=rs("MPWork")%><br>Mobil: <%=rs("MPMob")%><p>

<%
ElseIf rs("namn") = rs("Father") Then
%>

<%=rs("funktion")%>:<br><A HREF="mailto:<%=rs("EMail2")%>"><%=rs("namn")%></A><br>Telefon hem: <%=rs("PHome")%><br>Telefon arbete: <%=rs("FPWork")%><br>Mobil: <%=rs("FPMob")%><p>

<%End If%>

<%
rs.MoveNext
Loop
%>

<%'Nedstående rad talar bara om vem som ska få redigera sidan%>
<%If Session("access") = "SA" OR Session("access") = "Admin" Then%>

<font face="Arial" size="2"><A HREF="styrelsen.asp?Edit=true">Redigera sidan</A></font>

<%End If%>

<%End If%>

<%
rs.close
Connection.Close
Set rs = Nothing
Set Connection = Nothing
%>


Som jag har berättat tidigare så använder jag UName för att skilja medlemmarna åt, det är unikt för varje användare. Således använder jag den i min tabell Styrelsen för att inte alla medlemmar ska listas när jag visar styrelsen.

Har nu kommit så långt på min uppdateringssida att alla uppgifter uppdateras när jag skickar iväg sidan efter redigering UTOM just UName, vilket får till följd att den post jag redigerat inte presenteras på sidan eftersom just UName inte skrivs in i tabellen Styrelsen. Hur löser jag detta månne?

Jag måste komma på ett sätt att koppla UName till den mamma eller pappa jag väljer när jag listar medlemmarna när tabellen Styrelsen ska redigeras/uppdateras.

Jag har försökt att loopa igenom UName efter att jag loopar mammor och pappor men får inte till det.

Är det någon som ser vart jag har otur när jag tänker?

Mvh/Mankan
 
Nyheter
Tierp Arena värd för EM i Dragracing

Den 7–10 augusti 2025 förva...

120 unga motocrosstalanger från hela världen möts i Uddevalla

Screenshot Den 16–17 aug...

En vecka kvar!

Nu är det exakt en vecka kv...

Farligt vilseledande alkomätare på marknaden

Ett stort oberoende test ut...

Specialbyggd Yamaha XSR900 GP hyllar Rainey

För att fira den trefaldige...

Vi provkör Indian Sport Chief RT

I Allt om MC nummer 8 som k...

Ducati 996 SPS – fabriksny 99:a – såld för rekordsumma

När en hojfirma i Tombolo i...

Äldre än en gentleman

Vi har fotograferat en 100 ...

MV Agusta återgår till 100% eget ägande

MV Agusta Motor S.p.A. till...

MV Agusta åter självständigt

MV Agusta Motor S.p.A. till...

Back
Top