<%@LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Server.ScriptTimeOut=20 dim conn,db,thecode,rs,body dim therowcolor,thepagesize,sid,ex,penedit,mydebug mydebug="OFF" therowcolor="#BBCCCC" thepagesize=20 penedit="

" sub openandrun thecode = Request.ServerVariables("PATH_INFO") while instr(1,thecode,"/")>0 thecode = mid(thecode,2,999) if instr(thecode,"?")>0 then thecode=left(thecode,instr(thecode,"?")-1) wend if left(Server.MapPath(Request.ServerVariables("PATH_INFO")),1)="c" then db= "C:\pf\private\prifre\db\grundskolor.mdb" set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open db else db = "DRIVER={MySql}; SERVER=mysql83.unoeuro.com; DATABASE=prifre_com_db3; UID=prifre_com; PWD=jaromil69jaromil90" set conn=Server.CreateObject("ADODB.Connection") conn.Open db end if end sub sub makepage(s,target) dim mytable,myform if body="" then body=""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&"" body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&"

"&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf body=body&""&vbCrLf end if select case target case "","","<html>","<body>","<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" body=replace(body,target,s) case "</head>","","","" body=replace(body,target,s&target) case "" body=replace(body,target,s&target) case "" body=replace(body,target,s&target) case "" body=replace(body,target,s&target) case "" body=replace(body,target,s&target) case "" body=replace(body,target,s&target) case "" body=replace(body,target,"
"&s&""&target) case "" body=replace(body,target,"
"&s&""&target) case "" body=replace(body,target,"
"&s&""&target) case "" body=replace(body,target,"

"&s&"

"&target) case "","" body=replace(body,target,"

"&s&"

"&target) case "","","" body=replace(body,target,s&target) case else end select end sub sub closeandexit call makepage("","") conn.Close Response.Flush if mydebug="OFF" then body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") body=replace(body,"","") end if Response.Write body Response.End end sub function showreport dim b,srch,fl,fv(400),rs2 b="" ' set rs=Server.CreateObject("ADODB.recordset") set rs=conn.Execute("SELECT Count(*) as tr FROM grundskolor_grundskolor") b=b&"Antal grundskolor: "&rs("tr")&"
"&vbCrLf rs.Close set rs=conn.Execute("SELECT Count(*) as tr FROM grundskolor_grundskolor WHERE kontaktemail >''") b=b&"Antal mejladresser: "&rs("tr")&"
"&vbCrLf rs.Close set rs=conn.Execute("SELECT Count(*) as tr FROM grundskolor_grundskolor WHERE sentemail >''") b=b&"Antal sända mejl: "&rs("tr")&"
"&vbCrLf rs.Close set rs=conn.Execute("SELECT Count(*) as tr FROM grundskolor_grundskolor WHERE gotformdate>''") b=b&"Antal svar: "&rs("tr")&"
"&vbCrLf rs.Close set rs2=Server.CreateObject("ADODB.recordset") rs2.Open "SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='innehall'", conn,1,1 if not rs2.EOF then fl=split(rs2.fields("alternatives"),";") rs2.MoveNext end if for i=1 to UBound(fl) fv(i)=0 next rs2.Close srch="SELECT * FROM grundskolor_grundskolor WHERE gotformdate LIKE '%' ORDER BY skola ASC" set rs=Server.CreateObject("ADODB.recordset") rs.Open srch, conn,1,1 b1="" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" b1=b1&"" while not rs.EOF b1=b1&"" rs.MoveNext wend b1=b1&"

Skola

Elever

9elever

Merit

Frekv

Lärare

Datorer

Grund

Typ

Åld

Kön

Upd

H-start

Bes

UppInfo

Info2

Sidantal

Bet

Anv

Form

" if IsNull(rs.fields("skola"))=false then b1=b1&rs.fields("skola") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antalelever"))=false then b1=b1&rs.fields("antalelever") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antal_9elever"))=false then b1=b1&""&rs.fields("antal_9elever")&"" else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("genomsnittligt_meritvarde"))=false then b1=b1&""&rs.fields("genomsnittligt_meritvarde")&"" else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("uppdateringsfrekvens"))=false then b1=b1&rs.fields("uppdateringsfrekvens") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antallarare"))=false then b1=b1&rs.fields("antallarare") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antaldatorer"))=false then b1=b1&rs.fields("antaldatorer") else b1=b1&" " end if if IsNull(rs.fields("innehall"))=false then for i = 0 to UBound(fl) if instr(rs.fields("innehall"),fl(i))>0 then fv(i)=fv(i)+1 end if next end if b1=b1&"

" b1=b1&rs.fields("skolstart")&" " b1=b1&"

" b1=b1&rs.fields("skoltyp")&" " b1=b1&"

" b1=b1&left(rs.fields("huvudmannatyp"),1) b1=b1&"

" if IsNull(rs.fields("kontaktalder"))=false then b1=b1&rs.fields("kontaktalder") else b1=b1&" " end if b1=b1&"

" b1=b1&left(rs.fields("kontaktkon")&" ",1) b1=b1&"

" if IsNull(rs.fields("kontaktprocent"))=false then b1=b1&Replace(rs.fields("kontaktprocent")&"%","%","") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("uppdateringsantal"))=false then b1=b1&rs.fields("uppdateringsantal") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("hemsidesstart"))=false then b1=b1&rs.fields("hemsidesstart") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antalbesokare"))=false then b1=b1&rs.fields("antalbesokare") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("uppdateringsinfo"))=false then b1=b1&right(rs.fields("uppdateringsinfo"),3) else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("uppdateringsinfo2"))=false then b1=b1&right(rs.fields("uppdateringsinfo2"),3) else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("antalsidor"))=false then b1=b1&rs.fields("antalsidor") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("betydelse"))=false then b1=b1&rs.fields("betydelse") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("anvandning"))=false then ' b1=b1&left(rs.fields("anvandning"),1)&".." ' b1=b1&rs.fields("anvandning") else b1=b1&" " end if b1=b1&"

" if IsNull(rs.fields("gotformdate"))=false then b1=b1&"" b1=b1&left(rs.fields("gotformdate"),6) b1=b1&"" else b1=b1&left(rs.fields("gotformdate"),6)&" " end if b1=b1&"

" b2=b2&"" for i=0 to UBound(fl) b2=b2&"" next b2=b2&"

"&fl(i)&"

"&fv(i)&"

" b=b&b2 b=b&b1 showreport=b end function function editalternatives(fieldname) dim b,srch,fl,i b=b&"" editalternatives=b end function function listalternatives dim b,srch,i,r srch="SELECT * FROM grundskolor_fieldalternatives ORDER BY fieldname ASC" set rs=Server.CreateObject("ADODB.recordset") rs.Open srch, conn b=b&"" while not(rs.EOF) b=b&"" rs.MoveNext wend rs.Close b=b&"

" b=b&"" b=b&penedit b=b&""&vbCrLf b=b&"

" r=r+1 b=b&"("&r&")" b=b&"

" b=b&rs.fields("fieldname") b=b&"

" if rs.fields("alternatives")>"" then b=b&"" end if b=b&"

" listalternatives=b end function sub updatealternatives(fieldname) dim b,srch,i set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='"&fieldname&"'" rs.Open srch, conn,3,3 if (fieldname="" and Request("f2")>"") then rs.AddNew rs.fields("fieldname")=Request("f2") call makepage("Added '"&Request("f2")&"'.","") rs.Update rs.Close elseif (Request("f2")="" and not(rs.EOF)) then rs.Delete rs.Close call makepage("Deleted '"&Request("f")&"'.","") elseif (not(rs.EOF) and Request("f2")>"") then rs.fields("fieldname")=Request("f2") for i=1 to 100 if Request("f_"&i)>"" then fl=fl&Request("f_"&i)&";" end if next if right(fl,1)=";" then fl=left(fl,len(fl)-1) rs.fields("alternatives")=fl call makepage("Updated '"&Request("f")&"'.","") rs.Update rs.Close end if end sub function showasalternatives(fieldname,current,thesize) dim rs2,b,i,fl,j set rs2=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='"&fieldname&"'" rs2.Open srch, conn if not(rs2.EOF) then fl=split(rs2.fields("alternatives"),";") ' for i=1 to UBound(fl)+1 ' if len(fl(i-1))>j then j= len(fl(i-1)) ' next b=b&"" end if rs2.Close showasalternatives=b end function function showascheckboxes(fieldname,current,thesize) dim rs2,b,i,fl,current2 set rs2=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='"&fieldname&"'" rs2.Open srch, conn if not(rs2.EOF) then b="" fl=split(rs2.fields("alternatives"),";") if current>"" then cl=split(current,";") for i=1 to UBound(fl)+1 if ((i-1) mod thesize)=0 then b=b&"" b=b&"" next b=b&"

" current2="xys" if current>"" then for j=1 to UBound(cl)+1 if cl(j-1)=fl(i-1) then current2=cl(j-1) next end if if current2=fl(i-1) then b=b&""&fl(i-1)&vbCrLf else b=b&""&fl(i-1)&vbCrLf end if b=b&"

" end if rs2.Close showascheckboxes=b end function function showasradio(fieldname,current) dim rs2,b,i,fl set rs2=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='"&fieldname&"'" rs2.Open srch, conn if not(rs2.EOF) then b="" fl=split(rs2.fields("alternatives"),";") for i=1 to UBound(fl)+1 if current=fl(i-1) then b=b&""&fl(i-1)&vbCrLf else b=b&""&fl(i-1)&vbCrLf end if b=b&" " next end if rs2.Close showasradio=b end function function listschools dim i,b,r,rs,navigator,p0,p1,srch set rs=Server.CreateObject("ADODB.recordset") Response.Write srch srch="SELECT * FROM grundskolor_grundskolor" select case Request("sort") case "updateddate","id","skolkod" srch=srch&" ORDER BY grundskolor_"&Request("sort")&" DESC" case "gotformdate","sentemail" srch=srch&" ORDER BY grundskolor_"&Request("sort")&",grundskolor_kontaktemail,grundskolor_postnr DESC" case "" srch=srch&"" case "kontaktemail" srch=srch&" ORDER BY grundskolor_kontaktemail,grundskolor_postnr ASC" case else srch=srch&" ORDER BY grundskolor_"&Request("sort")&" ASC" end select b="" b=b&"" Response.Write srch:Response.Flush rs.Open srch, conn,1,1 rs.PageSize=thepagesize if rs.PageCount>1 then if Request("page")>"" then rs.AbsolutePage=Request("page") else rs.AbsolutePage=1 end if navigator="Sida: " navigator="" end if b=b&""&navigator b=b&"" while not(rs.EOF) and r" rs.MoveNext wend b=b&"

"&navigator navigator=navigator&"

" if Request("page")*1>1 then navigator=navigator&"<<" end if navigator=navigator&" " if Request("page")*1>> " end if navigator=navigator&"

" b=b&"__

" b=b&"Nr" b=b&"

" b=b&"Skolannamn och länk" b=b&"

" b=b&"Postnr" b=b&"

" b=b&"Ort" b=b&"

" b=b&"ID" ' b=b&"

" ' b=b&"Namn" b=b&"

" b=b&"E-post" ' b=b&"

" ' b=b&"Domän" ' b=b&"

" 'b=b&"System" ' b=b&"

" ' b=b&"Editor" b=b&"

" b=b&"Typ" b=b&"

" b=b&"Komm" b=b&"

" b=b&"Ändrat__" b=b&"

" b=b&"F40" b=b&"

" b=b&"Skickat" b=b&"

" b=b&"Mott" b=b&"

" b=b&"%" b=b&"

" b=b&"" b=b&penedit b=b&""&vbCrLf b=b&"

" b=b&"("&r+((p1-1)*rs.PageSize)&")"&vbCrLf b=b&"

" b=b&"" b=b&left(rs.fields("skola"),20) b=b&""&vbCrLf b=b&"

" b=b&rs.fields("postnr") b=b&"

" b=b&left(rs.fields("postort"),3) b=b&"

" if IsNull(rs.fields("skolid"))=false then b=b&"" b=b&rs.fields("id") b=b&""&vbCrLf else b=b&rs.fields("id") end if b=b&"

" ' b=b&left(rs.fields("kontaktnamn"),6) ' b=b&"

" b=b&"" b=b&left(rs.fields("kontaktemail"),5) b=b&""&vbCrLf b=b&"

" ' b=b&left(rs.fields("doman"),5) ' b=b&"

" ' b=b&rs.fields("system") ' b=b&"

" ' b=b&rs.fields("webbeditor") ' b=b&"

" b=b&rs.fields("skoltyp") b=b&"

" b=b&left(rs.fields("minkommentar"),5) b=b&"

" b=b&Year(rs.fields("updateddate")) if Month(rs.fields("updateddate"))<10 then b=b&"0" b=b&Month(rs.fields("updateddate")) if Day(rs.fields("updateddate"))<10 then b=b&"0" b=b&Day(rs.fields("updateddate")) b=b&"

" b=b&rs.fields("f40") b=b&"

" b=b&rs.fields("sentemail") b=b&"

" if IsNull(rs.fields("gotformdate"))=false then b=b&"" b=b&left(rs.fields("gotformdate"),6) b=b&"" else b=b&left(rs.fields("gotformdate"),6) end if b=b&"

" b=b&rs.fields("kontaktprocent")&" " b=b&"

" listschools=b end function function sendemail(id) 'sub sendemail(toemail,fromemail,mailsubject,mailmessage) Dim objCDO,b,m if sid*1<0 then exit function set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_grundskolor WHERE id="&id rs.Open srch, conn,3,3 if not(rs.EOF) then ' on error resume next mailsubject="Enkät om skolors hemsidor från Lärarhögskolan" fromemail="peter.freund@telia.com" m="Hej,"&vbCrLf&vbCrLf m=m&"Jag heter Peter Freund, studerar på Lärarhögskolan och skriver min C-uppsats om svenska skolors hemsidor på Internet. Det jag vill ta reda på är vad hemsidorna betyder för skolan och hur arbetet med dem fungerar. Jag har skapat en databas med grundskolor utifrån Skolverkets förteckning, besökt hemsidorna och letat e-postadresser till webbansvariga. Jag ber Er vänligen besvara enkäten eller vidaremejla den till rätt person på skolan."&vbCrLf m=m&"Klicka på följande länk för formuläret gällande Er skola, "&rs.fields("skola")&":"&vbCrLf m=m&vbCrLf m=m&"http://www.prifre.com/grundskolor/grundskolor.asp?id=3DEF"&rs.fields("id")&"EF92" m=m&vbCrLf&vbCrLf m=m&"Jättetack på förhand"&vbCrLf m=m&"/peter freund"&vbCrLf if lcase(left(Server.MapPath(Request.ServerVariables("PATH_INFO")),1))<>"c" then Set objCDO = Server.CreateObject("CDONTS.NewMail") toemail=rs.fields("kontaktemail") if instr(toemail,"@")>0 then objCDO.To = toemail objCDO.Cc = "peter.freund@telia.com" objCDO.From = "peter.freund@telia.com" objCDO.Subject = mailsubject objCDO.Body = m if IsNull(rs.fields("sentemail")) then objCDO.Send rs.fields("sentemail")=now rs.Update b="Sent email from "&fromemail&" to "&toemail else b="Email already sent to "&toemail&"!!!!!!!!!" end if else b="Bad email adress: "&toemail end if end if Set objCDO=Nothing else b="Could not send mail" end if rs.Close sendemail=b end function function sendemail2 'sub sendemail(toemail,fromemail,mailsubject,mailmessage) Dim objCDO,b,m if sid*1<0 then exit function set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_grundskolor WHERE (NOT gotformdate LIKE '%') AND (NOT f40 LIKE '%') AND (kontaktemail LIKE '%')" rs.Open srch, conn,3,3 while not(rs.EOF) xxx=xxx+1 ' on error resume next mailsubject="Om skolhemsidor från Lärarhögskolan" fromemail="peter.freund@telia.com" m="Hej,"&vbCrLf&vbCrLf m=m&"Jag skickade tidigare ett mejl och önskade att ni besvarar en kort enkät "&vbCrLf m=m&"om Er skolas hemsida. "&vbCrLf m=m&"Hittils har över 60 skolor besvarat enkäten."&vbCrLf&vbCrLf m=m&"Enkäten är KORT (tar högst 5 minuter att besvara)."&vbCrLf m=m&"Snälla, den är viktig för min undersökning."&vbCrLf&vbCrLf m=m&"Klicka bara på länken:"&vbCrLf m=m&"http://www.prifre.com/grundskolor/grundskolor.asp?id=3DEF"&rs.fields("id")&"EF92"&vbCrLf m=m&"(Om länken mot formodan inte skulle fungera, så försök igen. Ni får gärna besvara enkäten delvis och klicka igen när ni vill ändra eller lägga till något!)"&vbCrLf&vbCrLf m=m&"Jättetack på förhand"&vbCrLf m=m&"/peter freund"&vbCrLf&vbCrLf m=m&"Några synpunkter jag fått på enkäten:"&vbCrLf m=m&"Hej! Nu har jag fyllt i din utmärkta enkät. Hoppas att allt går bra för dig! " m=m&"http://www.borgsmoskolan.se"&vbCrLf&vbCrLf m=m&"Tänkte först strunta i dina frågor, svårt med tiden, men blev glad att jag svarade. " m=m&"Många bra och tänkvärda frågor, ser fram emot resultatet."&vbCrLf m=m&"http://www.myrsjo.nacka.se/"&vbCrLf&vbCrLf m=m&"Jag är nyfiken på vad du kommer fram till i din undersökning. Skicka gärna din analys till mig =) Lycka till."&vbCrLf m=m&"http://www.skola.partille.se/bjorndammens/index2.htm" toemail=rs.fields("kontaktemail") if lcase(left(Server.MapPath(Request.ServerVariables("PATH_INFO")),1))<>"c" then Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = toemail objCDO.Cc = "peter.freund@telia.com" objCDO.From = "peter.freund@telia.com" objCDO.Subject = mailsubject objCDO.Body = m if instr(toemail,"@")>0 then objCDO.Send rs.fields("f40")=now end if rs.Update Set objCDO=Nothing end if b=b&""&xxx&") Sent email to "&toemail&" ang "&rs.fields("skola")&" GOT="&rs.fields("gotformdate")&"
" rs.MoveNext wend rs.Close sendemail2=b end function function sendemail3 'sub sendemail(toemail,fromemail,mailsubject,mailmessage) Dim objCDO,b,m if sid*1<0 then exit function set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_grundskolor WHERE gotformdate>''" rs.Open srch, conn,3,3 while not(rs.EOF) xxx=xxx+1 ' on error resume next mailsubject="Examensarbete om skolhemsidor" fromemail="peter.freund@telia.com" m="Hej,"&vbCrLf&vbCrLf m=m&"Jag skrev ett examensarbete om skolhemsidor VT05 och fick då många webbansvariga " m=m&"på skolorna till att svara hur arbetet med skolans hemsida fungerar."&vbCrLf m=m&"Många visade då intresse för att läsa det slutliga resultatet."&vbCrLf m=m&"Examensarbetet finns att ladda ner från webben."&vbCrLf m=m&"Dessutom kan ni hitta en praktisk sökbar databas med skolhemsidor."&vbCrLf&vbCrLf m=m&"Klicka på länken: http://www.prifre.com/grundskolor för mer information."&vbCrLf m=m&vbCrLf m=m&"Med ett leende"&vbCrLf m=m&"/peter freund"&vbCrLf m=m&"lärare"&vbCrLf&vbCrLf toemail=rs.fields("kontaktemail") if lcase(left(Server.MapPath(Request.ServerVariables("PATH_INFO")),1))<>"c" and toemail>"" then if left(rs.fields("f40"),1)<>"9" then Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = toemail objCDO.Cc = "peter.freund@telia.com" objCDO.From = "peter.freund@telia.com" objCDO.Subject = mailsubject objCDO.Body = m if instr(toemail,"@")>0 then ' objCDO.Send rs.fields("f40")=now end if rs.Update Set objCDO=Nothing end if end if b=b&""&xxx&") Sent email to "&toemail&" ang "&rs.fields("skola")&" GOT="&rs.fields("gotformdate")&"
" rs.MoveNext wend rs.Close sendemail3=b end function function editschool(id) dim b,srch,fl,i b="" b=b&"

" srch="SELECT * FROM grundskolor_grundskolor WHERE id="&id set rs=Server.CreateObject("ADODB.recordset") rs.Open srch, conn,3,3 if not(rs.EOF) then b=b&"

" b=b&"Skola ["&rs.fields("id")&"]:	" b=b&"" b=b&"" b=b&"" b=b&"" b=b&"" b=b&"" b=b&"" b=b&"
" b=b&"Hemsida:	" b=b&" " b=b&rs.fields("adress")&", "&rs.fields("postnr")&" "&rs.fields("postort") b=b&"
" b=b&"Namn:	" b=b&"" b=b&"
" b=b&"E-post:	" b=b&"" ' b=b&"
" ' b=b&"Titel:	" ' b=b&showasalternatives("kontakttitel",rs.fields("kontakttitel"),1) b=b&"
" b=b&"Domän:	" b=b&showasalternatives("doman",rs.fields("doman"),1) b=b&"
" b=b&"Skoltyp:	" b=b&showasalternatives("skoltyp",rs.fields("skoltyp"),1) b=b&"
" ' b=b&"System:	" ' b=b&showasalternatives("system",rs.fields("system"),3) ' b=b&"
" ' b=b&"Innehåll:	" ' b=b&showasalternatives("innehall",rs.fields("innehall"),3) ' b=b&"
" b=b&"Antal elever:	" b=b&"" b=b&"
" ' b=b&"Antal lärare:	" ' b=b&"" ' b=b&"
" b=b&"
" b=b&"Anteckn.:	" b=b&""&rs.fields("minkommentar")&"" b=b&"
" b=b&"Skolverket:	" b=b&" " b=b&"
" b=b&"

" end if rs.Close b=b&"" b=b&"

" editschool=b end function sub updateschool(id) dim b,srch set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_grundskolor WHERE id="&id rs.Open srch, conn,3,3 if (id=0 and Request("skola")>"") then rs.AddNew rs.fields("skola")=Request("skola2") call makepage("Lade till '"&Request("skola2")&"'.","") rs.Update rs.Close elseif (Request("skola2")="" and not(rs.EOF)) then rs.Delete rs.Close call makepage("Tog bort '"&Request("skola")&"'.","") elseif (not(rs.EOF) and Request("skola2")>"") then if len(Request("skolverketinfo"))>5 then skolverket=split(Request("skolverketinfo"),vbCrLf) b=b&"

" if IsNull(rs.fields("adress")) then rs.fields("adress")=skolverket(1) b=b& "adress='"&rs.fields("adress")&"'
" end if if IsNull(rs.fields("postnr")) then rs.fields("postnr")=left(skolverket(2),instr(skolverket(2)," ")-1) b=b& "postnr='"&rs.fields("postnr")&"'
" end if if IsNull(rs.fields("postort")) then rs.fields("postort")=mid(skolverket(2),instr(skolverket(2)," ")+1,999) b=b& "postort='"&rs.fields("postort")&"'
" end if for i=3 to UBound(skolverket)-1 if IsNull(rs.fields("hemsida")) and instr(skolverket(i),"Hemsida")>0 then rs.fields("hemsida")=mid(skolverket(i),instr(skolverket(i)," ")+1,999) b=b& "hemsida='"&rs.fields("hemsida")&"'
" end if if instr(skolverket(i),"Telefon")>0 then rs.fields("telefon")=trim(mid(skolverket(i),instr(skolverket(i)," ")+1,999)) b=b& "telefon='"&rs.fields("telefon")&"'
" end if if IsNull(rs.fields("kontaktemail")) and instr(skolverket(i),"E-post")>0 then rs.fields("kontaktemail")=mid(skolverket(i),instr(skolverket(i)," ")+1,999) b=b& "kontaktemail='"&rs.fields("kontaktemail")&"'
" end if if IsNull(rs.fields("huvudmannatyp")) and instr(skolverket(i),"Huvudmannatyp")>0 then rs.fields("huvudmannatyp")=trim(mid(skolverket(i),instr(skolverket(i)," ")+1,999)) b=b& "huvudmannatyp='"&rs.fields("huvudmannatyp")&"'
" end if if instr(skolverket(i),"SKOLKOD")>0 then rs.fields("skolkod")=trim(mid(skolverket(i),instr(skolverket(i)," ")+1,999)) b=b& "skolkod='"&rs.fields("skolkod")&"'
" end if if instr(skolverket(i),"Skol-ID")>0 then rs.fields("skolid")=trim(mid(skolverket(i),instr(skolverket(i)," ")+1,999)) b=b& "skolid='"&rs.fields("skolid")&"'
" end if next ' end if rs.Update rs.Close call makepage(b,"") exit sub end if for each x in rs.fields select case x.name case "id","sid" case "updateddate" x.value=now case "skola" x.value=Request("skola2") case "updatedby" ' x.value="pf" case else if IsEmpty(Request(x.name))=false then x.value=Request(x.name) end if end select next rs.Update rs.Close call makepage("Uppdaterade '"&Request("skola")&"'.","") end if end sub function getarrnr(arr,s) dim i,arr2,found arr2=split(arr,"¤") found=-1 for i=0 to UBound(arr2)-1 if arr2(i)=s then found=i end if next if found=-1 then 'Response.Write "Incorrect field '"&s&"' used.
" else getarrnr=found end if end function function showform(id) dim b,srch,fl(1000),i,x b="" fn="¤" if isEmpty(id)=false then if left(id,4)="3DEF" then id=mid(id,5,999) if right(id,4)="EF92" then id=left(id,len(id)-4) else exit function end if end if else exit function end if srch="SELECT * FROM grundskolor_grundskolor WHERE id="&id*1 set rs=Server.CreateObject("ADODB.recordset") rs.Open srch, conn,3,3 if not(rs.EOF) then for each x in rs.fields i=i+1 fl(i)=x.value fn=fn&x.name&"¤" next rs.close end if b=b&"" b=b&"

Hej,

" b=b&"Jag heter Peter Freund. Jag studerar för närvaramde en MKL-kurs på Lärarhögskolan och skriver min C-uppsats om svenska skolors hemsidor på Internet.
" ' b=b&" Intresserade kan läsa en kort CV om mig.
" b=b&" Det jag vill ta reda på är vad hemsidorna betyder för skolan och hur arbetet med dem fungerar. " b=b&"Jag har skapat en databas med berörda grundskolor utifrån Skolverkets förteckning, besökt hemsidorna och använt de e-postadresser jag hittat. " b=b&"Nu ber jag er att besvara enkäten gällande er skola, er själva och er skolas hemsida." b=b&"
" b=b&" Jag kommer att analysera svaren och använda mig av dessa i min uppsats." b=b&" Om ni har några frågor, skicka ett mejl!" b=b&"

" ' b=b&"

" cb=" class='Text' onBlur='cb(this)' onFocus='cb(this)' size=90" b=b&"

"&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&"" b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&"

Skolans hemsida:	" b=b&"
Skolans namn:	" b=b&""&fl(getarrnr(fn,"skola"))&"
Adress:	"&fl(getarrnr(fn,"adress"))&"	" b=b&"Län: "&fl(getarrnr(fn,"lan"))&"
Postnr & ort:	"&vbCrLf b=b&fl(getarrnr(fn,"postnr"))&" "&fl(getarrnr(fn,"postort"))&"	" b=b&"Kommun: "&fl(getarrnr(fn,"kommun"))&"
Telefon:	"&fl(getarrnr(fn,"telefon"))&"	" b=b&"Huvudmannatyp: "&fl(getarrnr(fn,"huvudmannatyp"))&"
Skolinformation:	"&vbCrLf b=b&"Elever: " b=b&" "&vbCrLf b=b&"Lärare: " b=b&" "&vbCrLf b=b&"Internetanslutna datorer: "&vbCrLf b=b&"
Skolan grundades år:	"&vbCrLf b=b&""&vbCrLf b=b&" "&vbCrLf b=b&"Skoltyp (t.ex. 1-9, F-9, 7-9):

"&vbCrLf b=b&"

"&vbCrLf b=b&"" b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&"

E-post:	"&vbCrLf b=b&"
Namn:	"&vbCrLf b=b&"
Övrigt:	"&vbCrLf b=b&"Ålder: "&vbCrLf b=b&" "&vbCrLf b=b&"Kön: "&showasradio("kontaktkon",fl(getarrnr(fn,"kontaktkon")))&" " b=b&"
Titlar:	"&vbCrLf b=b&"Jag arbetar på skolan som... " b=b&showascheckboxes("kontakttitel",fl(getarrnr(fn,"kontakttitel")),4)&vbCrLf b=b&"Om några fattas, skriv dem här separarade med kommatecken "&vbCrLf b=b&"
Uppdateringsmängd:	"&vbCrLf b=b&"Hur mycket av hemsidan uppskattar du att du sköter själv (t.ex. 100%, 50%)? "&vbCrLf b=b&""&vbCrLf b=b&" Om fler än du ändrar hemsidan, hur många ytterligare personer tror du att det är? "&vbCrLf b=b&""&vbCrLf b=b&" Vilka andra än du ändrar direkt innehållet på hemsidan (t.ex. andra lärare, elever, föräldrar, etc)? " b=b&"
Utbildning:	"&vbCrLf b=b&"Har du fått utbildning i hemsidesuppdatering (t.ex. ITiS, Dreamweaverkurs,datorkurs)? "&vbCrLf b=b&""&fl(getarrnr(fn,"kontaktutb"))&"

"&vbCrLf b=b&"

"&vbCrLf b=b&"" b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf ' b=b&""&vbCrLf b=b&""&vbCrLf b=b&""&vbCrLf b=b&"" b=b&"" b=b&"" b=b&"

Start:	"&vbCrLf b=b&"Vilket år skapades hemsidan? " b=b&""&vbCrLf b=b&" "&vbCrLf b=b&"Antal besökare sedan dess? "&vbCrLf b=b&"" b=b&"
Plats:	"&vbCrLf b=b&"Ange det som passar bäst på er hemsida: " b=b&showasalternatives("doman",fl(getarrnr(fn,"doman")),1)&"
Storlek:	"&vbCrLf b=b&"Hur många sidor uppskattar du att hela webbplatsen består av? " b=b&"
Information:	"&vbCrLf b=b&"Vilken information finns tillgänglig via hemsidan? " b=b&showascheckboxes("innehall",fl(getarrnr(fn,"innehall")),4)&vbCrLf b=b&"Om något fattas, skriv det här "&vbCrLf b=b&"
Teknik:	"&vbCrLf ' b=b&"Vilka tekniker utnyttjas på hemsidan? " ' b=b&showascheckboxes("system",fl(getarrnr(fn,"system")),4)&vbCrLf ' b=b&"Om något fattas, skriv det här "&vbCrLf ' b=b&"
Program:	"&vbCrLf b=b&"Vilken programvara används för uppdateringarna? " b=b&showasalternatives("webbeditor",fl(getarrnr(fn,"webbeditor")),1)&" "&vbCrLf b=b&"Annan:"&vbCrLf b=b&"
Uppdateringar:	"&vbCrLf b=b&"Hur ofta uppdateras informationen på hemsidan? " b=b&showasalternatives("uppdateringsfrekvens",fl(getarrnr(fn,"uppdateringsfrekvens")),1)&" "&vbCrLf b=b&"Hur sker vanligen uppdateringarna? " b=b&showasalternatives("uppdateringsinfo",fl(getarrnr(fn,"uppdateringsinfo")),1)&" "&vbCrLf b=b&"Om uppdateringar sker på annat sätt, så beskriv: "&vbCrLf b=b&"
Betydelse:	"&vbCrLf b=b&"Hur mycket betyder hemsidan för er skola enligt dig? "&vbCrLf b=b&"Betyder inget" for i=1 to 20 if fl(getarrnr(fn,"betydelse"))1=i1 then b=b&"" else b=b&"" end if next b=b&"Betyder allt"&vbCrLf b=b&"
"&vbCrLf b=b&"Övrigt:	Avslutande kommentar (valfritt om skolan, hemsidan, undersökningen, etc): "&vbCrLf b=b&""&fl(getarrnr(fn,"anvandning"))&""&vbCrLf b=b&"

" b=b&"

" showform=b end function function submitform(id) dim b,srch set rs=Server.CreateObject("ADODB.recordset") if isEmpty(id)=false then if left(id,4)="3DEF" then id=mid(id,5,999) if right(id,4)="EF92" then id=left(id,len(id)-4) else exit function end if end if else exit function end if srch="SELECT * FROM grundskolor_grundskolor WHERE id="&id rs.Open srch, conn,3,3 if not(rs.EOF) then for each x in rs.fields select case x.name case "id","sid" case "updateddate" x.value=now case "updatedby" if sid>"" then x.value="pf" case "gotformdate" x.value=now case "innehall","kontakttitel" x.value="" if Request(x.name)>"" then x.value=Request(x.name) end if for each r in Request.Form if instr(r,"_")>0 then if left(r,instr(r,"_")-1)=x.name then x.value=x.value&";"&Request.Form(r) end if end if next case else if Request(x.name)>"" then x.value=Request(x.name) end if end select next rs.Update b=rs.fields("skola") end if rs.Close submitform="Uppdaterade "&b&now end function function showmenu dim b b=b&"Visa oklara grundskolor" b=b&" " b=b&"Visa grundskolor" b=b&" " b=b&"Redigera alternativ" b=b&" " b=b&"Visa formuläret" b=b&" " b=b&"Visa rapport" b=b&" " ' b=b&"Skicka extramejl" showmenu=b end function sub checkaccess dim b,srch sid="" ex="login" if Request("ex")="" then ex="showinnehall" if (left(Request("id"),4)="3DEF" and Request("ex")="") then ex="showform" if Request("ex")="submitform" then ex="submitform" set rs=Server.CreateObject("ADODB.recordset") if Request("sid")>"" then srch="SELECT * FROM grundskolor_users WHERE sid='"&Request("sid")&"'" rs.Open srch, conn,3,3 if not(rs.EOF) then rs.fields("lastlogindate")=now sid=rs.fields("sid") ex=Request("ex") rs.Update end if rs.Close elseif Request("username")>"" and Request("password")>"" then srch="SELECT * FROM grundskolor_users WHERE username='"&Request("username")&"' AND password=jaromil69'"&Request("password")&"'" rs.Open srch, conn,3,3 if not(rs.EOF) then rs.fields("sid")=Second(Now)+(60*Minute(Now))+(60*60*Hour(Now)) sid=rs.fields("sid") rs.fields("lastlogindate")=now ex="listschools" ' rs.Update end if rs.Close end if end sub function showlogin dim b b="Please login
" showlogin=b end function function thanksfordata dim b b="Tack för din medverkan "&Request("kontaktnamn")&".

" b=b&"Jag ska skicka ett mejl när den klara uppsatsen finns för nedladdning.
" b=b&"

" b=b&"Tills dess vill jag uppmuntra alla att titta på andra skolors
"&vbCrLf b=b&"hemsidor för att få idéer till förbättringar av den egna hemsidan.
"&vbCrLf b=b&"
" ' b=b&"Nedan följer de hemsidor jag besökt.
" b=b&"För mer information, skicka gärna ett " b=b&"mejl.
" set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_grundskolor WHERE kontaktemail>'' ORDER BY skola ASC" rs.Open srch, conn,1,1 while not(rs.EOF) b=b&"" b=b&"" b=b&rs.fields("skola") b=b&"" b=b&" " rs.MoveNext wend thanksfordata=b end function function SortArray(s) dim Sorted,TheArray,X,i,Temp Sorted = False TheArray=split(s,";") Do While Not Sorted Sorted = True For X = 0 To UBound(TheArray) - 1 If TheArray(X) > TheArray(X + 1) Then Temp = TheArray(X + 1) TheArray(X + 1) = TheArray(X) TheArray(X) = Temp Sorted = False End If Next Loop s="" for i=0 to UBound(TheArray) s=s&TheArray(i)&";" next if right(s,1)=";" then s=left(s,len(s)-1) SortArray=s End Function function showinnehall(id) dim b,t1,t2,i,srch,i2 set rs=Server.CreateObject("ADODB.recordset") srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='innehall'" rs.Open srch, conn,1,1 if not(rs.EOF) then t1=rs.fields("alternatives") end if rs.Close t2=split(SortArray(t1),";") b=b&"

" b=b&"Till examensinfosidan
" b=b&"" for i=0 to UBound(t2)-1 i2=i2+1 b=b&""&vbCrLf if i2 mod 5=0 then b=b&"" next b=b&"

" b=b&"" b=b&t2(i) b=b&" " b=b&"

"&vbCrLf for i=0 to UBound(t2)-1 if id=t2(i) then b=b&"

Alla skolor med "&t2(i)&"
"&vbCrLf b=b&"

"&vbCrLf srch="SELECT * FROM grundskolor_grundskolor WHERE innehall LIKE '%"&t2(i)&"%' ORDER BY skola ASC" rs.Open srch, conn,1,1 while not(rs.EOF) b=b&"" b=b&Replace(rs.fields("skola")," "," ") b=b&" "&vbCrLf rs.MoveNext wend b=b&"

"&vbCrLf end if next b=b&"

Mejla gärna synpunkter!
" b=b&"För att lägga till eller förändra uppgifter om din skola, använd speciell kodlänk.
"&vbCrLf b=b&"Om du saknar kodlänk, mejla!" b=b&"

" showinnehall=b end function call openandrun checkaccess select case ex case "login" call makepage(showlogin,"") case "showmenu" call makepage(showmenu,"") case "updateschool" call updateschool(Request("id")) call makepage(showmenu,"") call makepage(listschools,"") case "listschools","editschool" call makepage(showmenu,"") call makepage(listschools,"") if Request("id")>"" then call makepage(editschool(Request("id")),"") end if case "updatealternatives" call updatealternatives(Request("f")) call makepage(showmenu,"") call makepage(listschools,"") call makepage(editalternatives(""),"") case "editalternatives" call makepage(showmenu,"") call makepage(listalternatives,"") call makepage(editalternatives(Request("f")),"") case "showform" if sid>"" then call makepage(showmenu,"") call makepage(showform(Request("id")),"") case "submitform" call makepage(submitform(Request("id")),"") call makepage(thanksfordata,"") case "sendemail" call makepage(sendemail(Request("id")),"") call makepage(showmenu,"") call makepage(listschools,"") case "sendemail2" call makepage(sendemail2,"") call makepage(showmenu,"") call makepage(listschools,"") case "sendemail3" call makepage(sendemail3,"") call makepage(showmenu,"") call makepage(listschools,"") case "showreport" call makepage(showreport,"") call makepage(showmenu,"") case "showinnehall" call makepage(showinnehall(Request("id")),"") case else end select call closeandexit %>

" if fieldname>"" then srch="SELECT * FROM grundskolor_fieldalternatives WHERE fieldname='"&fieldname&"'" set rs=Server.CreateObject("ADODB.recordset") rs.Open srch, conn,3,3 if not(rs.EOF) then b=b&"Fältnamn:	" b=b&"" b=b&"
"&i&"	" b=b&" " b=b&"
"&i&"	" b=b&" " end if else b=b&"Fältnamn:" end if b=b&"