6 svar · 231 visningar · startad av tapani
Har ett kundregister. När jag tar upp info från Accessdatabasen blir listan väldigt lång
och vill därför genom att klicka på ett datum
(dropdownmeny, alt. någon slags kalender)
så att jag får upp alla kunder som ex har
registrerat sig under det datumet.
Hängde ni med där??
I alla fall så är jag rätt så ny på det här
med ASP men tror att jag måste använda mig
av <a href="datumsort.asp?<%rsContact("date")%>"> eller något liknande.
Men hur gör jag med datumsort.asp för att
få fram resultatet av min fråga??
Här är koden som jag har för kundregistret:
<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Inetpub\cgi-bin\ha\contact.mdb")
SQL = ""
If Len(Request.Form("Delete")) > 0 AND RecordCount >= 0 Then
RecordCount = Request.Form("RecordCount")
For I=0 To RecordCount
ContactID = Request.Form("Delete" & I)
If Len(ContactID) > 0 Then
SQL = SQL & " ContactID=" & ContactID & " AND"
End If
Next
If Len(SQL) > 0 Then
objConn.Execute("UPDATE Contacts SET DefaultEmail=Null WHERE" & SQL & " UserID=" & Session("UserID"))
objConn.Execute("DELETE FROM EmailAddresses WHERE " & SQL & " UserID=" & Session("UserID"))
objConn.Execute("DELETE FROM Contacts WHERE" & SQL & " UserID=" & Session("UserID"))
End If
End If
Set rsContacts = CreateObject("ADODB.Recordset")
Set rsContacts.ActiveConnection = objConn
rsContacts.Locktype = 2
rsContacts.Open "SELECT * FROM ContactView2 order by Date"
I = 0
Do While Not rsContacts.EOF
%>
<tr>
<td width="30" align="center"><input type="checkbox" name="Delete<%=I%>" value="<%=rsContacts("ContactID")%>"><A href="contact.asp?contactid=<%= rsContacts("ContactID") %>"></A></td>
<td width="90"><font size="-2"><A href="contact.asp?contactid=<%= rsContacts("ContactID") %>"><%= rsContacts("FirstName") & " " & rsContacts("MiddleName") & rsContacts("LastName") & " " & rsContacts("NickName")%></A></td>
<td width="90"><font size="-2"><%= rsContacts("Company")%></td>
<td width="65"><font size="-2"><%= rsContacts("HomeCity") & " " & rsContacts("WorkCity")%></td>
<td width="65"><font size="-2"><%= rsContacts("HomePhone") & " " & rsContacts("WorkPhone")%></td>
<td width="140"><font size="-2"><A href="mailto:<%= rsContacts("EmailAddress") %>"><%= rsContacts("EmailAddress") %></A></td>
<td width="60"><font size="-2"><%= rsContacts("JobTitle")%></td></font>
<td width="60"><font size="-2"><%= rsContacts("Department")%></td>
<td width="50" align="center"><font size="-2"><%= rsContacts("BusinessFax")%></td>
<td width="45" align="center"><font size="-2"><%= rsContacts("Title")%></td>
<td width="30" align="center"><font size="-2"><%= rsContacts("Date")%></a></td></font>
</tr>
<%
I=I+1
rsContacts.MoveNext
Loop
rsContacts.close
set rsContacts = Nothing
objConn.close
set objConn = Nothing
%>
</table>
Tack på förhand
Det är inga problem:
rsContacts.Open "SELECT * FROM ContactView2 WHERE Date = " & Request.QueryString("datum") & " order by Date"
TIPS!
Du vet väl att Recordset-objektet är långsammare att använda sig av än Connection-objektet är?
Ser att du anväder CreateObject istället för Server.CreateObject - bra! På så sätt går det inte via MTS:en och sparar minne.
------------------
/ Torbjörn Hansson, webbutvecklare/gränssnittsprogrammerare
Spetsdata AB
[Redigerat av toha den 04 apr 2000]
Kolla in min www.annelie.nu/guest.asp eller www.annelie.nu/diary.asp är det ngt sånt du vill ha, hojta till då ....
------------------
/Mvh Annelie( http://www.annelie.nu )
Eller är det möjligen något liknande som finns på denna gästbok:
Titta längst ned på sidan så ser du hur jag fixade till en sidnavigering.
/PatrikB
Toha:
Tack för tipsen, fast jag är så ny på det här
så förstod jag det du skrev direkt. Toppen.
Tackar så mycket..
Anneli:
Din dagboksvariant var en lysande lösning på
min fråga. Man skulle inte kunna få ta del av
koden? eller tips om hur du gjort det??
Du kan väl maila mig..
Toha:
Provade:
rsContacts.Open "SELECT * FROM ContactView2 WHERE Date = " & Request.QueryString("datum") & " order by Date"
men jag får felmeddelande hela tiden.
Har provat massor med ändringar men lyckas inte få till det..
Börjar bli desperat. *hehe*
Det torde se ut så här :) :
rsContacts.Open "SELECT * FROM ContactView2 WHERE Date = '" & Request.QueryString("datum") & "' order by Date"
Observera '-tecknen innan första "-tecknet och efter det sista också... det är dom som är hemligheten :)
------------------
SPiN, bjowik99@it-gymnasiet.nu
[Redigerat av SPiN den 11 apr 2000]
