Hvad vil du med det fortløbende nummer? - udskrive det i rækkerne eller?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Options
sSqlsrv = "BATMAN"
sDbUser = "C5"
sDbPass = "C5"
sDbName = "C5"
'Forbind til db
Set oC5db = Server.CreateObject("ADODB.Connection")
oC5db.ConnectionString = "driver={SQL Server};server="& sSqlsrv& ";uid="& sDbUser& ";pwd="& sDbPass& ";database="& sDbName
oC5db.Open
%>
<html>
<head>
<title>IMEI Kickback | Dato: <%=FormatDateTime(Now, vbShortDate)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
Function Optael(AktuelNo)
AktuelNo = AktuelNo+1
Optael = AktuelNo
End function
</head>
<body>
<form method="POST" action="Default.asp">
<div align="center">
<table border="0" width="700" id="table1">
<tr>
<td width="195"><font size="1" face="Verdana">
<select size="1" name="afdeling" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px">
<option selected>Vælg Afdeling</option>
<option value="10">Hjorring.Telekaeden.Org</option>
<option value="6">Aalborg.Telekaeden.Org</option>
<option value="5">Brabrand.Telekaeden.Org</option>
<option value="8">Horsens.Telekaeden.Org</option>
<option value="4">Vejle.Telekaeden.Org</option>
<option value="16">Vejle.Erhverv.Telekaeden.Org</option>
<option value="3">Erhverv.Telekaeden.Org</option>
<option value="11">Kolding.Telekaeden.Org</option>
<option value="9">Haderslev.Telekaeden.Org</option>
<option value="7">Herning.Telekaeden.Org</option>
<option value="2">NETget.Telekaeden.Org</option>
</select></font></td>
<td><font size="1" face="Verdana">
<input name="dato" type="text" id="dato" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px" value="<%=FormatDateTime(Now, vbShortDate)%>" size="20" maxlength="20">
</font></td>
<td> </td>
<td width="100" align="center"><font size="1" face="Verdana">
<input type="submit" value="Hent Data" name="Hent Data0" style="font-family: Verdana; font-size: 8pt; color: #000000; border-style: solid; border-width: 1px; background-color: #FFFFFF"></font></td>
<td width="100" align="center"><font size="1" face="Verdana">
<input type="reset" value="Nulstil Data" name="Nulstil Data" style="font-family: Verdana; font-size: 8pt; color: #000000; border-style: solid; border-width: 1px; background-color: #FFFFFF"></font></td>
<td width="100" align="center"><font size="1" face="Verdana">
<INPUT type="button" value="Print Data" Onclick="print()" ; style="font-family: Verdana; font-size: 8pt; color: #000000; border-style: solid; border-width: 1px; background-color: #FFFFFF"></font></td>
</tr>
</table>
</div>
</form>
<div align=center>
<table border=0 width=950 id=Beholdning>
<tr><td width=30 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Nr.</font></b></td>
<td width=165 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Model</font></b></td>
<td width=160 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">IMEI Nummer</font></b></td>
<td width=125 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Kontrakt Nummer</font></b></td>
<td width=100 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">GSM Nummer</font></b></td>
<td width=90 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Type</font></b></td>
<td width=120 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Kredit Godkendelse</font></b></td>
<td width=80 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Afdeling</font></b></td>
<td width=80 bgcolor="#000000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Medarbejder</font></b></td></tr>
</table>
</div>
<%
sDato = Request.Form("dato")
sAfdeling = Request.Form("afdeling")
'Opbyg sql
sSQL = "SELECT LAG1.LEVVARENUMMER AS Model, LAG.HDS_IMEI AS Imeinummer, LAG.HDS_KONTRAKT AS Kontraktnummer, LAG.DATO AS Salgsdato, "&_
" LAG.HDS_TELEFON AS GSMnummer, LAG.HDS_ABTYPE AS Abonnement, LAG.AFDELING AS afdeling, LAG.MEDARBEJDER AS Medarbejder, LAG.HDS_ABTYPE As Type, LAG.HDS_KREDITGODKNR As KreditGodkendelse "&_
"FROM LAGPOST LAG INNER JOIN "&_
" LAGKART LAG1 ON LAG.DATASET = LAG1.DATASET AND LAG.VARENUMMER = LAG1.VARENUMMER INNER JOIN "&_
" HDS_ABONTYPE ABT ON LAG.DATASET = ABT.DATASET AND LAG.HDS_ABTYPE = ABT.TYPE "&_
"WHERE (ABT.SELSKAB = '1' OR ABT.SELSKAB = '0') AND (LAG.VAREGRUPPE = 'Telefon') AND (LAG.FAKTURA != ' ') AND (LAG.ANTAL = '-1') AND (LAG.AFDELING = '"& sAfdeling& "') AND "&_
"LAG.DATO = "& ConvDate(sDato)& " "&_
"ORDER BY ABT.SELSKAB"
'Lav recordset med sql udtrækket i
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open sSQL, oC5db
Rcounter = 0
'List options fra recordset
do while not (oRS.EOF or oRS.BOF)
'Hent felter
sModel = Trim(oRS("Model"))
sIMEINummer = Trim(oRS("Imeinummer"))
sKontraktNummer = Trim(oRS("Kontraktnummer"))
sSalgsdato = oRS("Salgsdato")
sGSMNummer = Trim(oRS("GSMnummer"))
sAbonnement = Trim(oRS("Abonnement"))
sAfdeling = Trim(oRS("afdeling"))
sMedarbejder = Trim(oRS("Medarbejder"))
sType = Trim(oRS("Type"))
sKreditGodkendelse = Trim(oRS("KreditGodkendelse"))
'Format
sTekst = "Model: "& sModel& "; IMEINummer: "& sIMEINummer & " ;KontraktNummer: "& sKontraktNummer& "; GSM Nummer: "& sGSMNummer& "; Type: "& sType& "; KreditGodkendelse: "& sKreditGodkendelse& "; Afdeling:"& sAfdeling& " ; Medarbejder: "& sMedarbejder& " ;"
'Skriv option felt
Response.write "<div align=center><table border=0 width=950 id=Beholdning>"& vbCrLf
Response.write ”<tr><td>” & Optael Rcounter & ”</td>
Response.write "<td width=30><font face=Verdana size=1>1</font></td><td width=165><font face=Verdana size=1>"& sModel& "</font></td><td width=160><font face=Verdana size=1>"& sIMEINummer& "</font></td><td width=125><font face=Verdana size=1>"& sKontraktNummer& "</font></td><td width=100><font face=Verdana size=1>"& sGSMNummer& "</font></td><td width=90><font face=Verdana size=1>"& sType& "</font></td><td width=120><font face=Verdana size=1>"& sKreditGodkendelse& "</font></td><td width=80><font face=Verdana size=1>"& sAfdeling& "</font></td><td width=80><font face=Verdana size=1>"& sMedarbejder& "</font></td></tr>"
Response.write "</table></div>"& vbCrLf
'Hop til næste felt i basen
oRS.MoveNext
loop
%>
</body>
</html>
<%
function ConvDate(dDateTime)
'Definerer variable
Dim sYear, sMonth, sDay, sHour, sMin, sSec
sYear = Year(dDateTime)
sMonth = Month(dDateTime)
sDay = Day(dDateTime)
sHour = Hour(dDateTime)
sMin = Minute(dDateTime)
sSec = Second(dDateTime)
' CONVERT(DATETIME, '2002-05-15 17:36:00', 102))
ConvDate = CStr("CONVERT(DATETIME, '"& sYear& "-"& sMonth&"-"& sDay& " "& sHour& ":"& sMin&":"&sSec &"', 102)")
end function
%>
