---
title: "Skulle behöva lite hjälp!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5545-skulle-behöva-lite-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tapani"
published: "2000-04-04T13:07:00.000Z"
updated: "2000-04-11T11:26:00.000Z"
replies: 6
views: 253
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/5545-skulle-behöva-lite-hjälp"
---

# Skulle behöva lite hjälp!

## #1 — tapani, 2000-04-04T13:07Z

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

Permalänk: https://www.webforum.nu/p/5545

## #2 — toha, 2000-04-04T13:17Z

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.

Permalänk: https://www.webforum.nu/p/242476

## #3 — Annelie, 2000-04-04T14:37Z

Kolla in min [www.annelie.nu/guest.asp](http://www.annelie.nu/guest.asp)  eller [www.annelie.nu/diary.asp](http://www.annelie.nu/diary.asp)  är det ngt sånt du vill ha, hojta till då ....

Permalänk: https://www.webforum.nu/p/242477

## #4 — PatrikB, 2000-04-05T14:23Z

Eller är det möjligen något liknande som finns på denna gästbok:

[zGuestBook](http://zwgdesign.webhostme.com/zguestbook/gbook.asp?show=true)

Titta längst ned på sidan så ser du hur jag fixade till en sidnavigering.

/PatrikB

Permalänk: https://www.webforum.nu/p/242478

## #5 — tapani, 2000-04-06T12:48Z

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..

hannu.alamartimo@contrust.se

Permalänk: https://www.webforum.nu/p/242479

## #6 — tapani, 2000-04-11T09:28Z

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\*

Permalänk: https://www.webforum.nu/p/242480

## #7 — SPiN, 2000-04-11T11:26Z

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 :)

Permalänk: https://www.webforum.nu/p/242481

---

Tråden på webben: https://www.webforum.nu/amne/asp/5545-skulle-behöva-lite-hjälp