Jag har nog snurrat till det nu lite, om någon har tid och lust så titta gärna på nedanstående:
typ = Request.Querystring("typ")
team = Request.Querystring("t2")
ar = Request.Querystring("ar")
if ar = "" THEN
strTemp = ""&team&"_"&typ&""
else
strTemp = ""&team&"_"&typ&"_"&ar&""
end if
Response.Write strTemp
select case ar
case "" : Server.Execute strTemp &".txt"
End select
då det inte fungerar att använda sig av recset och Requst.Querystring så har jag försökt att komma runt det.
Usch, vidrigt värre att läsa det där. Gjorde om det lite för den goda sakens skull. ;)
' Deklarera variabler.
Dim Year ' As Integer
Dim Type ' As ?
Dim Team ' As ?
Dim Filename ' As String
' Hämta värden till variabler.
Type = Request.QueryString("typ")
Team = Request.QueryString("t2")
Year = Request.QueryString("ar")
Select Case Year
Case ""
Filename = (Team & "_" & Type & ".txt")
Case Else
Filename = (Team & "_" & Type & "_" & Year & ".txt")
End Select
' Skriv ut namnet.
Response.Write(Filename)
' Exekvera sida.
Server.Execute(Filename)
Varför går det inte att använda QueryString och RecordSet tillsammans? Visa hur du gör där i stället.
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03F2)
Identifierare förväntas.
temp.asp, line 133, column 4
Dim Type ' As String
Det är säkert jag som riktigt fångar scriptet, men det blir inte riktigt rätt. typ och team är text.
Jag fortsätter kolla runder lite, med hjälp av det du skrev.
Blev något mer överskådligt också, tack.
/r missade en sak: angående det jag skrev med QueryString och RecSet så menade jag. Min önska var att bara ändra filens uteseende i typ: <!--#include file=""&team&"_"typ".txt"-->
men det funkar inte om jag läst rätt här på forumet.
Year är ett funktionsnamn i vbscript, och möjligen är även type reserverat på något sätt i språket, så byt namn på de variablerna. Och nej, du kan inte göra includes på det sätt du vill dynamiskt, eftersom inkluderingen sker innan asp-tolken gör sitt.
