<%@ language = "VBScript"%> <% response.expires = -1000 response.expiresabsolute = #1980-01-01 12:00# response.addheader "cache-control", "private" response.addheader "pragma", "no-cache" %> <% method = request.querystring("method") if method = "send" then 'skicka mail Dim mailmsg Set mailmsg = Server.CreateObject("CDONTS.NewMail") mailmsg.To = trim(request.form("SubCatID")) mailmsg.bcc = "stellan@reactive.se;maria.kimthi@svecia.se" mailmsg.From = trim(request.form("email")) mailmsg.Body = fixstring(request.form("message")) mailmsg.Host = "smtp.levonline.com" mailmsg.Subject = "Message from www.svecia.com" mailmsg.Send end if %>

		Send us Email <% if val = "" then SQL = "SELECT * FROM texts WHERE ID = 22" set rsText = conn.execute(SQL) if not rsText.bof and not rsText.eof then response.write(rsText("Article") & " ") end if rsText.close set rsText = nothing end if %> Choose country/market: Choose contact: <% ID = Request.querystring("ID") CID = Request.querystring("CID") set rs = conn.execute("SELECT ID, Market FROM Market ORDER BY Market") counter = 0 if not rs.eof then while not rs.eof if noMarArray(counter) then If ID = "" then ID = rs("ID") if int(rs("ID")) = int(ID) then selected = " selected" response.write("" & trim(rs("Market")) & "" & VbCrLf) selected = "" end if counter = counter + 1 rs.movenext wend end if rs.close set rs = nothing %> <% HeadEmail = "" HeadConTitle = "" Headcontact = "" 'Hämtar huvudkontakten hos marketen i fråga.. SQL1 = "SELECT C.ID,C.Email,C.ExpCat,C.Name FROM Contact C INNER JOIN Market M on M.Contact = C.ID WHERE M.ID=" & ID ' ORDER BY C.ExpCat" set rsHead = conn.execute(SQL1,,1) 'Kollar om det finns någon huvudkontakt vald if not rsHead.eof or not rsHead("ID") = "0" then if int(rsHead("ID")) = int(CID) then selected = " selected" HeadEmail = trim(rsHead("Email")) 'Hämtar i sådant fall vilken expertise den tillhör SQLen = "SELECT Cat FROM ExpCat WHERE ID = " & rsHead("ExpCat") set rsHeadExp = conn.execute(SQLen) 'Om det expertise-IDet finns, annars väljer den namnet istället if not rsHeadExp.eof then HeadConTitle = trim(rsHeadExp("Cat")) else HeadConTitle = trim(rsHead("Name")) end if 'Skriver huvudkontakt-variabeln som skrivet ut senare if HeadEmail <> "" then 'Eftersom det finns en huvudkontakt vald (med email) så sätts noCont till 1 (=rätt) noCont = 1 Headcontact = "" & HeadConTitle & "" & VbCrLf end if rsHeadExp.close set rsHeadExp = nothing selected = "" end if 'MICKES TEST' 'response.write("Tekniker") 'response.write("Chef") '/MICKES TEST' rsHead.close set rsHead = nothing counter = 0 'Hämtar alla resterande relaterade kontakter till Marketen i fråga SQL2 = "SELECT C.ID,C.Email,C.ExpCat,C.Name FROM Contact C INNER JOIN C2M on C2M.ContactID = C.ID WHERE C2M.MarketID='" & ID & "'" 'SQL2 = "SELECT C.ID,C.Email,C.ExpCat,C.Name,Ex.Cat FROM Contact C INNER JOIN C2M on C2M.ContactID = C.ID INNER JOIN Expcat Ex on C.Expcat = Ex.ID WHERE C2M.MarketID='" & ID & "' ORDER BY Ex.Cat" set rs = conn.execute(SQL2,,1) 'Kollar om det finns några relaterade kontakter if not rs.eof then Do while not rs.eof if int(rs("ID")) = int(CID) then selected = " selected" email = trim(rs("Email")) SQLen = ("SELECT Cat FROM ExpCat WHERE ID = " & rs("ExpCat")) set rsCat = conn.execute(SQLen) 'hämtar deras Expertise-area... 'Om de inte är kopplade så står deras namn istället if not rsCat.eof then ConTitle = trim(rsCat("Cat")) else ConTitle = trim(rs("Name")) end if rsCat.close set rsCat = nothing if email <> "" then 'Om det finns så sätts nu noCont till 1 vilket tar bort felmarkering noCont = 1 'Gör en array av de kontakter som finns redim preserve ScriptItem2(counter) ScriptItem2(counter) = "" & ConTitle & "" 'response.write(ScriptItem(counter)) counter = counter+1 end if selected = "" email = "" rs.movenext loop end if if noCont <> 0 then response.write(Headcontact) if counter <> 0 then for ArrayCounter = 0 To counter-1 response.write(ScriptItem2(ArrayCounter) & VbCrLf) Next end if end if %> Message: Your email: <% conn.close set conn = nothing %>