I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
franz79
franz79
il 17 aprile 2002 alle 13:26
11 messaggi dal 17 settembre 2001
Qualcuno sa dirmi come si riesce, in una tabella contenente record di database Access, creare lo stesso effetto di Hotmail per i messaggi di posta? Vale a dire poter prima evidenziare il record che interessa cliccandoci sopra (o su un checkbox di fianco), e poi scegliere "modifica" o "cancella"?
Dovrei inserire questo effetto nella pagina asp seguente:

<%@ LANGUAGE=VBSCRIPT%>


<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor

Response.Write("<font size=2 face=arial>")


Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\anagrafica.mdb"))


%>

<head>
<title></title>
</head>
<body bgcolor="#800000">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="884" height="480">
<tr>
<td width="113" height="81">
<p align="center"><img border="0" src="a01.gif"></td>
<td width="560" height="480" rowspan="5">

<%
sSQL = "SELECT Stato, ID, Telefono, Km, Tipo, Direzione FROM Colonnine"
Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=1 cellpadding=8 cellspacing=3 align=center style='font-family:arial; font-color:blue; font-size:14pt;'>")
Response.Write("<tr bgcolor=#003399 style='color:white;'><td>Stato</td>")
Response.Write("<td>ID</td>")
Response.Write("<td>Telefono</td>")
Response.Write("<td>Km</td>")
Response.Write("<td align=right>Tipo</td>")
Response.Write("<td>Direzione</td></tr>")

sColor = "white"

Do While NOT oRS.EOF

If sColor = "#FFFF99" Then
sColor = "white"
Else
sColor = "#FFFF99"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("Stato").Value & "</td>")
Response.Write("<td>" & oRS("ID").Value & "</td>")
Response.Write("<td align=right>" & oRS("Telefono").Value & "</td>")
Response.Write("<td align=right>" & oRS("Km").Value & "</td>")
Response.Write("<td align=right>" & oRS("Tipo").Value & "</td>")
Response.Write("<td align=right>" & oRS("Direzione").Value & "</td></tr>")
oRS.MoveNext

Loop
Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
</td>
<td width="209" height="81" background="back5.gif">
<p align="center"> </td>
</tr>
<tr>
<td width="113" height="103">
<p align="center"><img border="0" src="a11.gif"></td>
<td width="209" height="399" rowspan="4">
<p align="center"><map name="FPMap0">
<area href="insert.html" shape="rect" coords="27, 20, 240, 55"></map><img border="0" src="nav.gif" usemap="#FPMap0"></td>
</tr>
<tr>
<td width="113" height="99">
<p align="center"><img border="0" src="a18.gif"></td>
</tr>
<tr>
<td width="113" height="98">
<p align="center"><img border="0" src="trasp.gif"></td>
</tr>
<tr>
<td width="113" height="99">
<p align="center"><img border="0" src="trasp.gif"></td>
</tr>
</table>
</center>
</div>
</body>

Se qualcuno può essermi di aiuto, gli sarò eternamente grato.
Molte grazie
Franz



RispondiQuoting
albis
albis
il 17 aprile 2002 alle 15:05
1.605 messaggi dal 06 settembre 2002
dovresti modificare la pagina così


.
.
.
.
.
<%
sSQL = "SELECT Stato, ID, Telefono, Km, Tipo, Direzione FROM Colonnine"
Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=1 cellpadding=8 cellspacing=3 align=center style='font-family:arial; font-color:blue; font-size:14pt;'>")
Response.Write("<tr bgcolor=#003399 style='color:white;'><td>Stato</td>")
Response.Write("<td>ID</td>")
Response.Write("<td>Telefono</td>")
Response.Write("<td>Km</td>")
Response.Write("<td align=right>Tipo</td>")
Response.Write("<td>Direzione</td>")
Response.Write("<td> </td>")
Response.Write("<td> </td></tr>")

sColor = "white"

Do While NOT oRS.EOF

If sColor = "#FFFF99" Then
sColor = "white"
Else
sColor = "#FFFF99"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("Stato").Value & "</td>")
Response.Write("<td>" & oRS("ID").Value & "</td>")
Response.Write("<td align=right>" & oRS("Telefono").Value & "</td>")
Response.Write("<td align=right>" & oRS("Km").Value & "</td>")
Response.Write("<td align=right>" & oRS("Tipo").Value & "</td>")
Response.Write("<td align=right>" & oRS("Direzione").Value & "</td>")
Response.Write("<td align=right><input type="checkbox" id=chkselez name=chkselez value=""" & oRS("ID").Value & """></td>")
Response.Write("<td align=right><a href=""modifica.asp?ID=""" & oRS("ID").Value & """>Modifica</a></td></tr>")
oRS.MoveNext

Loop
Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
.
.
.
.


mettendo tutto in un form
con un submit per la cancellazione(la scelta per la modifica appare su ogni riga)

poi nella pagina di cancellazione potrai comporre la stringa SQL
in questo modo

strsql = "delete from tabella where id in (" & Request.Form("chkselez ") & ")"

FORZA LA MAGICA ROMA
FORZA LA MAGICA ROMA
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.