01. december 2003 - 11:23Der er
7 kommentarer og 1 løsning
nogen forslag til hvordan dette eller kunne gøres ?
Jeg har denne sub, virker fint, men det må da på en måde kunne gøres i selve sql'en så jeg slipper for at hente alle poster, og så betinge...
Sub GetArchive() Dim Sql, Conn, Rs Sql = "SELECT * FROM meddelelseData"
Set Conn = Connect() Set Rs = Conn.Execute(Sql)
Do While Not Rs.Eof '********************************** If Year(Rs("meddelelseDato")) = Request("y") Then '********************************** Response.Write("<div style=""width: 320px; margin-bottom: 100px;"">")
Response.Write(AlignRight(GetImage(Rs("meddelelseBillede")))) Response.Write(H3(Rs("meddelelseTitel"))) Response.Write(Div(Rs("meddelelseDato"))) Response.Write(Div(Rs("meddelelseHoved"))) Response.Write(Div(Rs("meddelelseIndhold"))) Response.Write("</div>") End If Rs.MoveNext() Loop
Conn.Close Set Conn = Nothing Set Rs = Nothing End Sub
ok jeg prøvede selv den ting jeg ikke regnede med virkede... Sub GetArchive() Dim Sql, Conn, Rs Sql = "SELECT * FROM meddelelseData WHERE Year(meddelelseDato)="&CInt(Request("y"))
Set Conn = Connect() Set Rs = Conn.Execute(Sql)
Do While Not Rs.Eof '********************************** 'If Year(Rs("meddelelseDato")) = CInt(Request("y")) Then '********************************** Response.Write("<div style=""width: 320px; margin-bottom: 100px;"">") Response.Write(AlignRight(GetImage(Rs("meddelelseBillede")))) Response.Write(H3(Rs("meddelelseTitel"))) Response.Write(Div(Rs("meddelelseDato"))) Response.Write(Div(Rs("meddelelseHoved"))) Response.Write(Div(Rs("meddelelseIndhold"))) Response.Write("</div>") 'End If Rs.MoveNext() Loop
Conn.Close Set Conn = Nothing Set Rs = Nothing End Sub
det virker men forekommer mig underligt at jeg bare sådan uden videre kan bruge vbscript midt i min sql.....det troede jeg ikke kunne lade sig gøre...
Du bygger jo SQL-strengen op som du gør med en hvilken som helst anden tekststreng - for det er jo bare det, den er, en tekststreng. Når den bliver modtaget er den fortolket, så det er ikke noget problem.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.