Lidt spørgsmål omkring forms...
Heyer ved at lave en product side til mine billeder. som kan ses på:
pinkfloyd.blacknet.dk/product_admin.asp
har så lavet en til at tilføje dem kategorier scriptet kan ses her.
pinkfloyd.blacknet.dk/kategori.asp
problemet er enligt at når jeg sætter dem sammen, så du kan ændre kategori på det product du er ved at redigere så virker det ikke...
databasen ser sådan her ud:
følgende tabeller:
kategori
product
kigger man i kategori ser den sådan her ud
id----navn
her er Product admin.asp scriptet
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
%>
<% mode = request("mode") %>
<% if mode = "" then %>
<%
SQL = "SELECT * FROM Product"
set rs = Conn.execute(SQL)
if rs.EOF then
%>
<a href="ret.asp?mode=logaf">logaf</a>
Intet i db'en
<%
else
%>
<a href="ret.asp?mode=logaf">logaf</a>
<table width="400">
<tr>
<td><b>ID1:</b></td>
<td><b>Serial:</b></td>
<td><b>Kategori:</b></td>
<td><b>Info_TXT:</b></td>
<td><b>Katalog:</b></td>
<td><b>Date:</b></td>
</tr>
<%
Do Until rs.EOF
%>
<tr>
<td valign="top"><a href="?mode=ret&id1=<%=rs("id1")%>"><%=rs("id1")%></td>
<td valign="top"><%=rs("serial")%></td>
<td valign="top"></td>
<td valign="top"><%=rs("info_txt")%></td>
<td valign="top"></td>
<td valign="top"><%=rs("Date")%></td>
</tr>
<%
rs.MoveNext
Loop
end if
%>
<% end if %>
<% if mode = "ret" then %>
<form method="POST" action="?mode=ret2&id1=<%=Request.QueryString("id1")%>">
<%
SQL = "Select * From Product where id1="& Request.QueryString("id1")
set rs = Conn.execute(SQL)
%>
Id1: <%=rs("id1")%><br><br>
serial:<br>
<input type="text" size="10" name="serial"><%=rs("serial")%></textarea><br><br>
<br><br>
<%
dim objConn, objRS
set objConn = server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
objConn.Open
Set objRS = objConn.Execute("SELECT * FROM kategori")
If Not objRS.EOF Then
response.write "<SELECT NAME=""SELECT"">" & vbCrLf
Do Until objRS.EOF
Response.Write "<OPTION VALUE=""" & objRS("id1") & """>" & objRS("navn") & "</OPTION>" & vbCrLf
objRS.MoveNext
Loop
response.write "</SELECT>" & vbCrLf
End If
If objRS.State = 1 Then objRS.Close
Set objRS = Nothing
If objConn.State = 1 Then objConn.Close
Set objConn = Nothing
%>
info_txt:<br>
<textarea name=info_txt rows=10 cols=50><%=rs("info_txt")%></textarea><br><br>
<input type="submit" value="Send">
</form>
<% end if %>
<% if mode = "ret2" then %>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From product where id1=" & Request.QueryString("id1")
rs.Open strSQL, Conn, 1, 3
rs("serial") = Request.form("serial")
rs("info_txt") = Request.form("info_txt")
rs("date") = Date()
rs.Update
%>
Rettet
<% end if %>
jeg regner med det er fordi den ikke får mulighed for at opdatere dens tabel eller sådan... nogle der har en løsning ???
